l yGEBRUi^^ER5 CLUB 

Het doel van de vereniaina is: het bevorderen van de kennisuitwisselina 
tussen de aebruikers van 6502-comDuters, zoals KIM, SYM, JUNIOR, fiIM-65, 
SYSTEM 65, flCORN, PET en CBM, ftPPLE, CHE-1, fiTflRI, de Proton-comouters, 
ITT 2020, PEfiRCOM, PC-100, OSI, BBC, VIC-20 en COMMODORE 64, BftSIS 108, 
PfiLLAS, SBC 65/68, FORMOSP, ORIC-1, ftCE 1000, KEMPPC Svsteryi 4, NCS 6502, 
MINTfi, enz. enz. 

Deze kennisuitwisselina wordt o.a« gerealiseerd door zesmaal oer laar 
DE 6502 KENNER te oubliceren, vi.if maal per laar clubbi.ieenkorwsten' te 
houden, een cassettebibl iot heek in stand te houden en oaoerwa re-service 
te bieden. Daarnaast organiseren de leden zelf reaionale biieenkowsten. 

Verschijningsdata Bi jeenkowsten 

DE 6502 KENNER van de club 



derde zaterdag 
van de maandens 
februari 
aoril, juni 
august us 
oktober 
deceiYiber 

Reqio Den Haaa/R'dam e. o. 

Inl. Gerard van Roekel 

V. d- Pa 1 mst raat 1 1 -C 
3135 LK Vlaardinaen 
Tel. s 010 - 351101 



derde zaterdaa 

van de maanden: 

lanuari 

maart 

mei 

seotember 
november 

Regio ftrnhem e. o. 

le en 3e Ma-avond v.d. maand 
in HET DORP 

(zaal wordt aanaegeven in de 
hal van de oersoneelsf lat ) 
Inl. s Henk Deutekonfi 

Tel. : 08303 - 8987 



De KIM GEBRUIKERS CLUB NEDERLflND is een volledia onaf hankel i ike vereni- 
aina met statuten en een bestuur. De club is inaeschreven bi.i de Kamer 
van'KooDhandel en Fabrieken voor Hollands Noorderkwart ier te ftlkmaar, 
onder nummer 634305. 

Samenstell ina van het bestuur is thans als volot: 



Voorzitter s 



Erevoorzitter s 
Sekretariss 



Penn i na meest e r s 



Ledenadm i n i st rat i e s 
Redaktie DE 6502 KENNER 



Hard-/Software: 



Promotie: 
Ereleden: 

fid res van de vereniaina! 
L i dmaat schaopen : 



fid VB r t ent i et a r i even : 



Daqe 1 i \k s best u ur l 
Rinus 'Vleesch-Dubois 
Fl. Niahtinaal est raat 



2037 NS Haarlem 
Sieo de Vries 
Ruud Uohoff 
Voorburaoad 10 
6843 EM'Rrnhem 



212 



(023 - 330993) 



(085 - 816935) 
(19.00 - 20.00 
Riet Uohoff - Burohoorn 
voor adress zie bi i sekretaris 
Led en s 

Ruud Uohoff (zie bi] sekr. ) 
Uillem L. van Pelt 
Jacob Jordaensst raat 15 
2923 CK Krimoen a.d. IJssel 



(01807 
(05490 - 
(01807 - 
(05490 - 
(070 
Van der 



19881 ) 
51151) 
20589) 
71416) 
931417) 
Winden 



Mri Hankel 
John van So rang 
Erwin Visschedi ik 
Jan Tomoot 
Mw. H. de Vries - 
Anton Mueller 
zie adres sekretaris 
F1.45, = oer kalenderjaar, postreke- 
nina 3757649 t.n. v. KIM Gebruikers 
Club te Arnhem 
Od aanvraag bi ] de redaktie 
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KEiMMER 



K m WKKEk is een 
uitqave van de KIM Gebrui- 
kers Club Nederland. 

Mres voor het inzenden 
van en reakties oo art ike- 
len voor m SSQimHm 

Uilleo L van Pelt, 
liDob Jordaensstraat 15, 

2923 CK mmmmm 

IJSSEL. 

Til. 8 01107 - ISIBI 

Redaktie DE 6S02 KENhER: 
Vasli ledMirtorsl 

Uilleo van Pelt 
iifiii mm iwdutt 
Frans Steehuiizen 

Jaao van Toledo 

FfiiliifiGi iedmierfcttiiit 

fmm Mm 
Adri Hankel 
Fridtts Jonkian 
iii iiitli 
Her«an Kuyvenhoven 
Rooer Lanoeveld 



Seteli of iliiiMI^ 
overna«e van de inhoud 
van DE 6502 KENNER zonder 
toestWifill Hi In 
stuur is verboden. Toeoas- 
sing van gepubliceerde 

is alleen toegestaan voor 
oersoonlijk gebruik. 

DE 6502 KENNER verschiint 
6 X per jaar en heeft een 
odlige van SX) exiielartn. 

Cooyright (C) 1984 KIM 
Si^fotitifs Glub Nedftrland. 

De vooroagina is een aaua- 
rel van een KIN, geschil^ 
derd door: 

Rinus Vleesch Dubois 



INH0UDS0P6AVE DE 6502 KENiCR NR. 33 
1. Van de redaktie 



AUGUSTUS 1964 



2. UITN0DI6IN6 Biieenkoist /Software Koooelinos'-sessie 



limm mmmm m mi 



3. BA5IC 
Tokenized Microsoft 
... Nico de Vries 
Soiraal. Grafisch oo Juntof M VKHiiart 
... Jaao van Toledo 

KB-9 and USR-call 

Manuscriot. Huloaiddel bii het schriiven van brieven 
... Alfons van de Meutter.' Belaie 
Data Saver. Verbeterino van de bestaande versle 
... J. A. Dekker 
Trace- en Single Steo 

Voortzettinq serie uitbriiiitwin S^Niisic OiN 
... Frans Sfteehuiizen 

4. FORTH 
Kleintie FORTH 
... yillet L vm toll 

5. Hicrp-ADE 
Patches Micro-ADE 
... Sebo T. Woldrinah 
Tandy Printer VII en Micro-fflE 
... Johnv Verhoeven, Beloie 

6. b_ask:o.de' 

Basicode Zend/Ontvanoer 
... H.A.J. Quasi 

7. SENIORrHonitor 
Pa'tcRes Tor Utilitv Pack VI. 1 
Start van een serie aanoassinoen 
... Rob imm 

8. 0_S65D 

Eoson FX80 orinterrotrtine for JIKIIR Nith 
... H.A.J. Oort 

9. HARDWARE 
LoM Cost Elekterainal Exoansion 
... R. Baarslaq 
Basicode Zend/Ontvanoer 
... H.A.J. Quast 

Single Steo, eenvoudige oolossing 
... Ronald MifMli *' ' 

10. DIVERSEN - 
Junior Disassembler 
... Fridus Jonktan 
Tekst naar Geheugen 
... Dick de Jonc* 

Usuroator Schaakoroaraaai is sdNlii 
... Dirk M. Verziiden 

Brief aan de rerifi^iM mwtfmmi^m^m 
... Gert Klein 
Autodatische Reset 
... Harry Vandendriessche, Belaie 

11. HARKTIKFd 
CPii board net CMOS 6502 
Intel lioente Grafts^ Ttminil m K 
... Gert Klein 



2. 
4. 

20. 

a 

39. 

33. 

47. 

16. 
35. 

Sid. 

3. 

IT. 
38. 
44. 

I. 

13. 
22. 
32. 
42. 



34. 
46. 
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Eniae edities teruq, en na iaandenlano stioiulerend 
bezig te zijn geMeest, kon ik Aet eniqe trots bekend 
taken dat de ofoaraAaeertaal Forth binnen de gelede- 
ren van onze clu6 Aeer bekendheld beqon te genieten. 
Met beschikbaar stellen van deze oroaraMeeftaal is 
toen beoerkt tot de JUNIOR. Inaiddels kan ook de KIM 
Forth worden verkreoen, terwiil er ook Nordt oewerkt 
aan een versie voor JUNIOR iet OHIO-DOS. Voor de DOS. 
van Koen van NieuMenhove is er eveneens een versie. 
Een Drobleea doet zich echter Mel voor. Oadat inder- 
tijd leden van onze club bij de HCC Fig-Forth Sebrui 
kefs Groeo de bi.ibehorende oaoieren veel aoedkooer 
konden kriiaen, hebben Ne daarvan aewag geiaakt. Wat 
bliikt nu?'Ce klachten strooiden binnen.' Men raakte 
ttet de Forth-Sebruikers Sroeo in een eindeloze dis- 
kussie over het niet-aflevertn van de betaalde soul- 
len. Een telefonies aesorek d# tl taanden oeleden 
had aet de voorzittef van die aroeo gaf Meinig hou- 
vast, al kreeo ik de indruk dai het od het bestuurs- 
nivo niet alle«aal van een leien dakie gina. Niette- 
•in Nerd ook nil verzekerd dat, zi i het Aet eniae 
vertragina, de leveranties korrekt zouden Morden uit 
aevoerd. De klachten die Aij de laatste tijd berei- 
Ken bewiizen echter het teaendeel. Oa die reden heb 
ik gezocht naar een oolossing van onze kant. Het is 
aeen aoedkooe oolossing, Aaaf het voorziet in de be- 
Boefte aan gegevens oo'oaoier, die kenneliik nog al*- 
tijd niet door de Fio-Forth Sebruikers Sroeo oo een 
Aanier kan worden bevredigd. Uie Aeer inforta- 
ies over de kosten Nenst, stuurt een gefrankeerde 
retourenveloooe aan het adres van de redaktie. Bin- 
Hill ^ri^li im^$ iQilsi fibruikelijk« ontvanot aen 
«m il i^jili^ 1^ illi nor clubleden beschikba- 
re cassettes en oaoers. 

lets andiri. Het lijkt nuttig bi^ voorld^ 

den van oflii dub te bli wen herinneren i 

stellina van onze club: Fiet uitMisselen van oocedane 
ervarinoen en kennis Aiddels DE 6502 KENNER. Dat doe 
ik niet,' oAdat het voor iedereen nodig is. Selukkig 
niet. Er ziin veel leden die de door fien ontwikkelde 
oroaraAAa's direkt tofivoeoen aan de coov-buffer van 
DE 6502 KENNER. ill it ons daarbi i niet Aeer beoer- 
ken tot de toch nog eeest uitdagende Aachinetaal zal 
de lezer allang oogevallen zijn. Inzendinoen in de 
Micro-Ware asseAbler van Peter Jenninos 'Micro-flDE' 
of in asseAbler van Carl Moser. evenals listinos in 
Basic, Basicode, Forth, Focal, CoAal, Pascal, ze zvn 
alleAaal van harte NelkoA. De arenzen zi]n verlead 
van uitsluitend oubliceren in Aachinetaal naar oubli 
ceren van inzendingen van leden in de taal die hen 
zelf het Aeest aansoreekt. Daartede zijn dreAoels 
iieggenoAen die er voor aebruikers van coAolete svste 
wm iMls APPIE, CoAAodore 64, enz. wellicht waren 
(mMt mm imod veelal niet in Aachinetaal bezia is 
Ik Aag aanneAen dat iedere oebruiker toch Mel eens 
een aanoassing Aaakte of zelf een orooraAAa schreef. 
Of etn stukje'hardMare Aaakte. Als die aebruikers 't 
nu eens alletaal oosturen naar de redaktie, dan kim 
liiflide de aantrekkeli.ikheid van ons blad nog ver- 
W0 tergroot Morden. Door Un oublikaties orikkelt tl 
nu eenAaal de geest van anderen, ook van de re^^li 
Publiceren is een uitsiekend Aiddel oa Um kennii ft" 
rtflekt^rd te zien in oublikaties van anderen. 

y.L. van Pelt 



De bekende HCC CoAouterdagen in de Jaarbeurs Utrecht 
Morden dittaal aehouden oo vriidaa 16 en zaterdaa 17 
noveAber 19B4. 2oals te doen oebruikeli jk zal de'KIK 
Sebruikers Club Nederland ook'oo deze daaen Aet een 
eiaen stand aanwezia zijn. Net als voria'jaar roeot 
hef bestuur de leden oo zich oo te oeven als eede* 
Merker aan het reoresenteren van hef aeen de club aan 
de leden te bieden heeft. Het is van'belana dat dan 
Un coAolete svsteee Aee kan koeen. Uiteraard Mi lien 
m zoveel Aoaeliik verschillende eachines laten zieru 
iizien de beoerkinaen die de standruiete ons nu een- 
Aaal ooleat, is het niet uitoesloten dat het bestuur 
een keuze zal Aoeten Aaken, Aaar in orincioe is een- 
ifder van harte NtlkoA. Vergeet de dagen ni«t ti nr 
lertn in Un aotnda, en veremt niet if oo te fimi f 

Oo de onlanas in Souda aehouden flPPLE-daa Nerd een 
Soeedloader voor het Merken Aet DOS 3.3 aanoeboden. 
Het laden van een asseAbler of een ander orocraAAa 
Aet eniae oAvang duurt al oauM la'n spi>^ii» Mil 
Soeedloader, aldus de standhoudifs, I0f M f 
oer seconde binnen. Soiitia genoea werd de redaktie 
geen Soeedloader ter test aanoeboden. Weliswaar is 
gezien dat het sneller oaat, eaar het zou beter zijn 
als we dat hadden kunnen bevestioen. Nu is alleen ^e 
indruk achtergebleven dat het echt zo snel is. Boven 
dien hadden Me ook araag dooroeoeven hoe het in dH 
oraktijk Nerkt. Uellicht dat ieeand ons die.inforAa- 
tie alsnoa kan leveren. Ue houden ons aanbevolen. Er 
kan worden oeinforAeerd bij M. ScMiil, i^lftli f^^^ 
Ausolaats 2S, 3069 6K RotMl^iii^ il ilM iip 

de club niet te vereelden. 

In Elektuur van luni 1984 verscheen een artikel over 
het samenvoecen van tNee Basic-files "Weroe voor Ba- 
sic-files" voor de JiHIQI Iffil .OiiD BSB5S. 
Mile schri ift een soo'f^(»li|jl I^INM^ IHif ii8^ iil 
het eigen DOS ? r- 
Overiaens: FPTE, een nieuNe Foniat Lister, Asseiiiif 
en Editor Aet Taoe Utilities, geschikt oa Aet twee 
oestuurde cassettes aan de JUNIiR te werken kent zd- 
wel Merae als Solit. Uilt U mm mitm§ mm^^W^m 
ori izen, stuur dan een voldoenie gef raiiimiiii wm^ 
loooft iin de redaktie. U or\i^m$J0 i9 sriil|l|#« 

Wie van onze leden Nil illustraties eaken voor K 
6502 KENNER. Het Oiit hier niet oa het eaken van te- 
kenNerk ten behoeve v«a «*P«|'l^«^«^ 
OA kleine qeestioe olIMim if liil^iWfRHii^ '^ 
geven bii oe redaktie. 

De redaktie roeot de leden in €|p^fA|ivinoen van |«r 
Haao, AAsterdaA, AlkAaar, KroAiPlf^ HeeAstede, ' M-^^ 
Aelo, fleersfoort, Seldroa^ fllii^iirii, en de leden in 
de direkte oegeving diAfvaiiMio wn de olaatseliike 
kranten het redaktie-adm oo te oeven. Uii kunnen 
dan die kranten laten Neten dat ef bijeenkoAsten ae- 
houden mfim, 2odat iHik A^en die onze club (noo) 
niet kmm in ^ 0^mMm6 koeen onze biieenkoA^ 
itiii it i^Mil* 

Ml i p IteNK fiMtoi^M^ oAAaakt 
fi li il lif mm m tmmm m aanoasiinoen. 
Ook aaftominoin van indini oftQtaiia's zip m^m 
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F41D- 
F41F- 
F422- 
F424- 
F427- 
F42fl- 
F42C- 
F42F- 
F431- 
F434- 



F3E8- 
F3EB- 
F3ED- 
F3EF- 
F3F2- 
F3F4- 
F3F5- 
F3F6- 
F3Fg- 
F3FC- 
F3FF- 
F401- 
F403- 
F404- 
F405- 
F406- 
F407- 
F408- 
F409- 
F40fl- 
F40D- 
F40F- 
F411- 
F414- 
F416- 
F419- 
F41C- 



a 



ft9 FF 
8D 02 F8 
09 flO 
8D OC 
flD 03 F8 
29 3F 
8D 03 F8 
09 00 
8D FO EF 
60 



fiD 01 FS 
29 80 
DO 2D 
2C 01 F8 
70 FB 
Eft 
Eft 

OD 63 23 

8D 00 F8 

flD 01 F8 

29 80 

DO 19 

Eft 

Eft 

Eft 

Eft 

Eft 

Eft 

Eft 

ftD OD FS 
29 10 
FO EB 
ftD OD F8 
09 18 
8D OD F8 
8D OD Fa 
60 



0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0150 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
05OO 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 



*#•*# EPSON FX80 PRINTERmiTINE for JUNIOR with OSiSD •♦»»• 

bv! H. fl. J. Oort 

Van Ei jsinoalaan 28 
3527 VL Utrecht 
The Netherlands. 

connect ionss 



PBO .., 

CBl 

CB2 

Pfl7 

Pfl6 



AHOLD 

VftPBD 

VflPflD 

VftPBDD 

VftPflDD 

VftPCR 

VfllFR 

CENFUWe 



PB7 = DflTfl OUTPUT 
- fiCKN INPUT 
= STROBE OUTPUT 
= PAPER EMPTY INPUT 
= BUSY INPUT 

.DE $2363 

.DE $F800 

.DE $F801 

.DE *Fe02 

.DE *F803 

.DE $F80C , 

.DE «F80D 



: initialize ■&miWmMi 

LDA #*FF 
STA VAPBDD 
LDA #*ft0 
STA VAPCR 
LDA VAPADD 
AND #$3F 
STA VAPfilD 
LDA «0 

sTfl mmm- 

RTS 

: Centronics out out 



CENTRO 
CENTRQl 

CTROfl 
WAIT 



CTROB 



.BA $F3Ea 

LDft VAPAD 
ftND #$80 
BNE CTROB 
BIT VflPAD 
BVS CENTRQl 
NOP 
NOP 

LDA AHOLD 
STA VAPBD 
LDA VAPAD 
AND «»80 

BNE mm^r- 

NOP 
NOP 
NOP 
NOP 
NdP 
NOP 
NOP 

LDA VfllFR 
ftND #$10 
BEQ WAIT 
LDA VAIFR 
ORA #$18 
STfl VfllFR 
STfl VfllFR 
RTS 



PBO 



PB7 = OUTPUT 



CB2 = WRITE HANDSHAKE PULS 
CBl = NEB. EDSE SENSITIVE 

PA6.7 = INPUT 



■ RESET THE PRINTER fUm 



PAPER EMPTY ? 
PRINHSJ BUSY ? 

OUTPUT THE CHARACTER 
PAPER EMPTY 



SAMPLE CBl FLAS 
WAIT FOR ACKNOWLEDSE 

RESET CBl. CB2 FLAGS 



chance also : $2317 into Ei 
$2318 into F3 
♦F3E1 = startaddress - 1. 

. en 



(Elektuur seot.83) 



UITNODIGING BUEENKOMST 



Datum 5 zaterdao 15 seDtember 1984 

Lokatie ' Soeeltuinaebouw Beeklust /Ossenkoooelerhoek 

Jan Steenstraat 69, fllmelo. Tel. : 05490 - 19443 

Reisroute s 



- omr auto - vanuit het westen en het zuiden via de ftl/Pj^ 

i It Oan het einde van de snelwea oaat U rechtsaf* 

Bii de eerstvolaende stoolichten rechtdoor. 
Na ca. 100 m. bereikt U weer een kruisount, umimr 
stool ichten. 
Ga hier linksaf. 
28 Deze straat - de Jan Vermeerst raat - maakt een 
flauwe bocht naar rechts. ftan het einde van deze 
bocht ziet U links de 1 ichtfnasten van een voetbal- 
veld. Ga linksaf. Het soeelt uinqebouit vlnit mm 
ca. 150 m. aan de linkerkant. 

- vitnuit het noorden via de_N36s 

SV Rii door tot U de ftlMWB-borden ricKtino Wierden/ 
Zwolle ziet. 6a hier rechtsaf. 

Bliif deze weq volqen. U komt dan over een momSfm^ 
ovefaana. 

Ga na ca. 150 m. linksaf. weer richtina Wierden/ 
Zwolle. Na ca. 200 flri. ziet U rechts een Texaco'- 
benzinestation. Ga hier rechtsaf. 
Verder als beschreven bi) Dunt 2. 

6EWIJZIQDE 

TO^flM^PRIJSs Fl. 10, a. Lunchoakket event ueel zelf lYieenemen. 

Lunch is ook tegen vergoedinq verkri lobaar. 

Consuffioties teaen betaling. 
Deze reoeling is een exDeriment oo verzoek van 
de ledenyergadering* (Toegangsorijs v/h Fl.25,^) 

Proar«i»«fliai 



9.30 Ontvanast met koffie. 
10*15 Ooening 

tO*SO Erwin Visschediik en Pdri Hankel 
Tc^i^htina oo "KOPPEL-SESSIE" 

11.15 KoiHPieoauze 

11.30 Forum 

12.00 Lunchoauze. 
13.00 "KOPPEL-SESSIE" 

Het is de ton^nilina dat machines als JUNIOR. KIM. APPLE, 
PET, CBM, enz. aanelkaar gekoDoeld worden en vanuit 
een cent rale comouter worden gestuu rd. ' 
^^^^^^^^^^^ COMPUieR MEE ! ! 

Het miille#ied^|i nordt geheel geyornd door het gebruikeliTke 
mmwt^ 'wmSmi&m. Mferuik deie tlid om met elkaar te kontakten. 
Mmm feittijfe ym I0^me^% m^^^ »n meth0den. 
MAHKT. 0|> eigen tefeKe> te regelen. 

17.00 Sliiitiifi. 
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COMPUTER-KOPPELINGS-SESSIE BIJEENKOMST 15 SEPTEMBER 1984. 

TiJdens verscheidene b i J eenkomsf en van de club is gebleken? dat 
het informele sedeeitet het stoeien a#t comPUters» programma's enz. 
er^ P€iP#tiir I s ^rj m ieden. mm#tt "^iw ®%fi irft^ ^iie#s uit net 
ve r I edtifi fi#g maar eens te herhalen: het Koppe I -net wer k. 
BiJ d i t netwerK mord^n maxi maai 24 egJgg-cowj^Mters aanfesiqten op een 
mast#r--€0mput#r» mi ddets i»en tif^eedraads !t@tw#flc* Via ##ti ##nvaudis 
stukJe software worden de door de master-computer versonden 
wachi netaal prograwma' s in het geheufen geiezen. Wat voor programma's 
dMt zMfif is OP dit moment nos n i el? ftiiA «iii«a t keKer. In elK gevaJ wordt 
er een disassembler, geschiHt . vwr SS6i2-l nstukt ie' s verzonden. 

lb hardware! 

Om ondef i i nge be i nv I oed 1 ng of beschad i s \ ng van computers te voorkamen» 
z i J n aHe comPuters» die op het netwerk worden aangesioten» ga i van i sch 
gescheiden door optocoupi ers. Di t houdt we J in, dat U z#rf ^^or een 5 
Volt aansluiting moet zorgen. De aansluitlng van Uw systeem op he^-' 
netwerk vlndt dus Plaats met 3 dradens een 0, een 5 Volt, en een . 
signaaidraad. ftansruiting op de Junior saat ^ia de l/O-^mmwem^r op de 
basiskaart. Punt 1 is massa» Punt 2 is 5 Volt en Punt 3 (PO0) is de 
signaalliJn. BiJ de Commodore 64 wordt de user port gebruikt. Pen 2 is 
S fpirn* pen 11 is massa en mm "S-^ km .-'^ '^^^nmm^ tUn^: tmM mm ^mm ''mm 
passende cont ra-konnektor met een drletai draden aan ^s^mmmfwmm^^ 
aans I u i t punten gesoideerd. 

De software 

Ofrtdat het hier een tweedraads verbinding bet reft, een massa- en een 
slsnaat draad, meet de software serieer, dus bit voor %it wrzo^#eii 
worden- De bits worden in groepen van 8? een byte dus? verzonden. Elk 
byte wordt voorafgegaan door een startbit, logisch '0', en afgesloten 
met een stoPbit, iogisch '1*. 

E r is voor z i en i n een eenvoud i ge kon t ro I emose I i J khe id op ver I or en 
gegane bits, middels de checksum-met hode. Aan zender- en ont vanger z i J de 
weirdenf mile res p. verzonden en ont van sen bfiNi* bi4 eiRlfcilf o###t#ld. Na 
verzending behoren de beide somgetaiien gefiilc te ziJn. Er is dan een 
redeliJKe kans dat de transmissie korrekt 1® p^ppest. 100 % zeker is 
deze methode niet, een M' die een^ Is ##liiOf#en Kan Hiii*t#r# - 

geKompensee rd worden door een '0' die een is geworden. 

De ontvangen data wordt ingelezen via bit 0 (het LSB> van de 
desbetref f ende t/O-Poort. Wa de inf^iariM«%*# itacHt hwt -wmsmwrni^ 
het begin van het startbit. Wordt dit g#d#tekteerdi dan wordt er 
anderhalf bittiJd gewacht. Daarna wordt fenif eerste databit ingelezen, 
naar de Carry geschoven en in de ti^def ilice w#f%e^#enpiaart« SVHI 
geschoven. Dit wordt 8 keer herhaald? dus totdat het he I e byte is 
ontvansen. Het ingelezen byte wordt dan in het geheugen gezet, en biJ 
de eheclrsyfft op^eteid. Daarma wordt nos een Mr* e bi tt i Jd de 
verwerking van het stoPbit.De t ransm i ss i e-sne I he i d bedraagt ca. 1200 
Baud- Deze snelheid bleek een ac ceptabe I kompromis tussen snelheid en 
teet roo w baa r he i d - 

Tensi ott e s 

Voor Cowmodore-bezi tters die niet over een m#chinetaaii»#il t^ff 
beschikken zai oP de te houden bi Jeenkomst het prosramma SUPERMON 
aanwez is z i Jn. 

Verder zai er ru ime seiesenhetd zi Jn tot het stel ten van VTasem w^mr 
hard- en /of software. 
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Deze disassembler 
hex-toetsenbord en ■*ii«lfliiy* 

UitgangsDunt dient een aeassembleerd programma te zijn 
dat niet oo oaaina nul staat en maximaal 73 labels 
heeft. Het laatste ad res bevat het EOF-teken (77). 
Het disassembleren wordt automatisch aestart na het 
ingeven v#r> imt eerste Adrmw. (SA) an limt laatste 
ad res +01 (EA> . 

Het orogramma is oogedeeld in 6 stukken: 

- INlT " 5 Hierin wofden Sfl en Eft aeladen via het toetS'- 

enbord en het disolav, de adreswiizers BESAB« 
CURAD en CENQ ir^eeteld en de begiHMHandtai:; 
van d« hulo#MllMyi in page zero giNiet. 

- ZOEK t Het mmtimm mrdt oer ixMlruktie doorleii«»% 

Bij eaPEKQpMMHielijke juiie^lnstpukties worelt 

li» m&Nmi «»rvangen door een label, fivtl 
■ • ■ • • III • 



doer mk &if oebeurt niet wanneer bulfin 
□rogrnwHi wordt gesorongen, b. v. naar de mo" 
nit or. 

Bij voorwaardelixke juMO-instrukties wordt 
de ooerand vervingen door een label. Het 
adres waarnaar gesorongen moet worden, wordt 
berekend. ledef nieuw' soronaadres, gevolad 
door het label, wordt oogeBoraen oo Dage 
zero, te beginnen vanaf adres $0d00. 
Page zero wordt gesorteerd oo oolooend 
•orongadres. 

soronaadres oo oage zero wordt 
3, het derde i, het vierde 



- SORT 



- H006 I Met fweede 

verhoood «ket 
«M>t 9, 'enz. 

- V(£6 s Alle labels van oage zero worden in het oro- 

gramma gevoegd oo de aanqegeven sorongadres- 
sen. Per label wordt het oroarattmadeel dat 
eroo volgt drie adresplaatsen verder gescho- 
ven. 

- EINO i ENDADL wordt aelijk aemaakt aan iFF, ENDADH 

wordt gelijk aan CENOH +01 en CURAO aan 
BEiAD, zodat eventueel direkt tot editins <of 
assMibleren) kan worden overoeoaan. 
N.B. Let er wel 09« wanneer je'aaat assettble- 
ren, dat dan lab»l« oogeslaoen worden vanaf 
EMmO. nii ttviioi-stack Mf 'niet. ilnttften het 
geheugevflsKfttlit t&mn je coiibuter 
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IF 






ftNDIM 


$1F 


1410 


! 0257 


C3 


10 
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! 0282 


P5 


E7 
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OB 






BCS 


STCKft 


1780! 


1 029C 


C6 


DC 






DECZ 


MSB 


1790. 


• 029E 


<4-Lr 


07 


02 




JMP 


STCKft 


laoo 


! 02A1 


fl5 


DC 




flDDCY 


LDftZ 


MSB 


1810 


! 02fl3 


69 


00 






ftDCIM 


$00 


1820 


! 0205 


85 


DC 






STftZ 


MSB 


1830' 


! 02fl7 


20 


AD 


02 


STCKfl 


JSR 


STftCK 


1840 


! 02flfi 


4C 


5B 02 




JMP 


NXTIN 


1850 


! 02flD 


38 






STftCK 


SEC 




i860 


! 02flE 


05 


DD 






LDftZ 


LSB 


1870. 


! 02B0 


E5 


E2 






SBCZ 


BEGftDL 


1880! 


! 02B2 


05 


DC 






LDftZ 


MSB 


1890! 


! 02B4 


E5 








SBCZ 


BESftDH 


1900! 


! 02B6 


30 








BMI 


NXTIN 


1910! 


! 0286 


H 








SEC 




1920! 02B9 


IP- 


DD 






LDftZ 


L^ 



oDcode aanaewezen 
door CURftD naar a^li 
als oocode » onvoor"^ 
waa rde 1 i 1 ke sorong 
dan sorina naar 
UNCON 

als oocode » voorwaar- 
delijke sorona dan 
sorina naar P3ND 
stackooxnter » HlfWF 



CURftD :=CURftD+BYTES 
als CURftD^iK) dan ZOEK 
anders SORf 
LSBss'le ooerand 



MSBi»^ nmrantf 



accu, Xt^ti^rand 
LSB : =LSB+o oe rand 



als ooerand »> 0, dan 
sorit^ naar ftDDCY 

als carrv « 0, dan 
MSBi«Hai-01 
sorina naar STCKft 
MSB:attSB-fcarry 



nieuw sorongi^fM m li^l 

naar oage zwn 
als MSB,LSB<BEQflD 

dan soring naar NXTIN 



als MSB, LSB ^mm^ 
dan soring naar NiTIN 
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PeF^ n KEMIMER 



19301 


02BB 


E5 


E8 








19401 


02BD 


A5 


DC 




LOAZ 




1950s 


02BF 


E5 


E9 




S6CZ 


CENDH 


19601 


02C1 


10 


98 




BPL 


NXTIN 


1970S 


02C3 


A2 


00 




LDXIM 


«00 


1980s 


02C5 


86 


06 




STXZ 


FLAG 


19S0S 


02C7 


E4 


DE 


TEST 


CPXZ 


PNTER 


2000 s 


02C9 


10 


IC 




6PL 


TFLAB 


2010 s 


02CB 


B5 


00 




LDAAX 


♦0000 


2020 s 


02CD 


C5 


DD 




CMPZ 


LSB 


2030 s 


02CF 


DO 


11 




6NE 


PLUSA 


2040 s 


02D1 


B5 


01 




LDAAX 


$0001 


2050 s 


02D3 


C5 


DC 




CMPZ 


MS6 


20S0S 


02D5 


DO 


06 




6NE 


PLUSA 


20708 


02D7 


B5 


02 




LDAAX 


«0002 


2080 s 


02D9 


ft6 


DE 




LDXZ 


PNTER 


2090S 


02DB 


AO 


01 




LDYIM 


fOl 


tlWs 


02DD 


84 


D6 




STYZ 


FLAS 


2110 s 


02DF 


4C 


C7 02 




JMP 


TtST 


2120 s 


02E2 


E8 




PLUSA 


I NX 




2130: 


02E3 


E8 






I NX 




2140: 


02E4 


E8 






INX 




2150: 


02E5 


DO 


EO 




BNE 




2160: 


02E7 


A4 


DB 


TFLAG 


LDYZ 


FLAG 


2170: 


02E9 


CO 


01 




CPYIM 


♦01 


2180: 


02EB 


FO 


15 




BEQ 


SLOT 


2190: 


02ED 


A4 


DD 




LDYZ 


LSB 


2200: 


02EF 


94 


00 




STYZX 


♦0000 


2210: 


02F1 


A4 


DC 




LDYZ 


MSB 


2220 s 


02F3 


94 


01 




STYZX 


♦0001 


2230: 


02F5 


A4 


DF 




LDYZ 


LABNR 


2240: 


02F7 


94 


02 




STYZX 


♦0002 


2250: 


02Fg 


E6 


DE 




INCZ 


PNTER 


2260: 


02FB 


E6 


DE 




INCZ 


PNTER 


2270: 


02FD 


Ee 


DE 




INCZ 


PNTER 


2280: 


02FF 


98 






TYA 




2290: 


0300 


E6 


DF 




INCZ 


LABNR 


2300: 


0302 


AO 


01 


SLOT 


LDYIM 


♦01 


2310: 


0304 


91 


E6 




STAIY 


CUf^DL 


2320: 


0306 


60 






RTS 




2330 s 








«»«« 


SORT **** 


2340 s 


0307 


A2 


00 


SORT 


LDXIM 


♦00 


2350 s 


0309 


86 


D6 




STXZ 


FLAB 


2360: 


030B 


8A 




mis 


TXA 




2370: 


030C 


18 






CLC 




2380 s 


030D 


69 


03 




ADCIM 


♦03 


2390: 


030F 


C5 


DE 




CMPZ 


PNTER 


2400: 


0311 


10 


34 




BPL 


TEIND 


2410 s 


0313 


B5 


03 




LDAAX 


♦0003 


2420 s 


0315 


85 


DD 




STAZ 


L^ 


2430: 


0317 


B5 


00 




LDAZX 


t^OO 


2440: 


0319 


38 






SEC 


2450: 


031A 


E5 


DD 




8BCZ 


LSB 


2460 s 


031C 


B5 


04 




LDAAX 


♦0004 


2470: 


031 E 


85 


DC 




STAZ 


MSB 


2480 s 


0320 


B5 


01 




LDAAX 


♦0001 


2490 s 


0322 


E5 


DC 




SBCZ 


MSB 


2500 s 


0324 


30 


IC 




BMI 


PLUSB 


25108 


0326 


64 


00 




LDYZX 


♦0000 


2320 8 


0328 


65 


03 




LDAAX 


♦0003 


25308 


032A 


95 


00 




STAAX 


♦0000 


25408 


032C 


94 


03 




STYZX 


♦0003 


25508 


032E 


64 


01 




LDYZX 


♦0001 


25608 


0330 


65 


04 




LDAAX 


♦0004 



FLfl68«0;Xs«0 

als X => PNTER dan 
soring naar TFLflG 
als inhoud van ad res 

♦0000+X ongeliik is aan LSB dan 
soring naar PLUSfl 
als inhoud van ad res 

$000 1+X onaeliik is aan MSB dan 
sorina naar PLUSfl 
accusainhoud van ad res *i(3>@0t#K 
XsaPNTER 
FLflB8«l 



X:=X+03 



sorina naar TEST 
als FCA6»1 dan 
soring naar SLOT 

LSB'^inhoud van 
ad res $0000+ X 
MSB^inhoud van 
ad res $0001+X 
LABNR"^ inhoud van 
ad res *0002+X 
PNTER8«PNTER+03 



accu:=LftBNR 
LftBNR:=LflBNR+01 
accu^le ooerand 



FLflGs=0 

als X+3 => PNTER 
dan soring naar TEIND 



als sorongad res, aangegeven 
door adressen 
fOOOO+X en *0001+X 
< sorongad res, aanaeaeven 
door adressen 
$0000+X+3 en $0001+X+3 
dan soring mm" 
PLUSB 



verwissel de inhoud 
van de adressen 
$0000+X <==> $0000+X+3 
♦0001+X <==> $0001+X+3 
*0002+X <~> ♦0002+X+3 
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p^FS 5 D 2 



KEMMER 



Zu tV • 


• ATTO 


ijD 


A 1 






CTA7 V 


A AAA 1 






Q/i 








CTV7 Y 
O 1 T Z. A 


AAAA/, 


OCJQA • 
^D^U • 


• ATTC 

Uoub 


D/i 








LDYZX 


$0002 


OCAA « 


• Uooo 


DD 








LDflAX 


$0005 


oc 1 r» • 
ZblU • 


• UoJH 










STflZX 


$0002 


■^c or* « 


• ATTP 


Q/i 


AR 






STYZX 


$0005 


OCTA « 

^boU • 


ATTC 


Hzf 


A 1 






LDflIM 




^b4U • 


AT/i A 


oD 








STflZ 








CA 
C.O 






Di 1 ICQ 


INX 




ZbbU • 


• AT/iT 

Ut34tJ 


CO 
CO 








INX 




Zb /U « 




CO 








INX 




^bou ! 


AT/i 

Oo4iD 


r\A 

uy) 


L4 






BNE 


VWIS 


QA « 

2bW • 


AT/i 7 
U*34 / 


HD 








um 


FLOG 


2700 ! 


ATA Q 

oj)4y 


Ly 


AA 
OU 








♦00 


^ / 1 0 • 


» AT/iD 

Uo4jd 


HA 


DA 






BNE 


SORT 


2720 • 










mt t M .w. 


HOOG »**« 


2730! 


AT A r\ 


A'O 


AT 
03 






LDXIM 


$03 


2740! 


• /S T A tr 

! 034F 


c4 


r\p" 

Dc 




HUOd 


CPXZ 


PNTER 


2750 ! 


0»:)51 


■< A 

10 


ID 






BPL 


VOEG 


2760 ! 


ATCTT 


DD 


A A 
UO 






LDRPX 


$0000 


2770 • 


ATcrer 
OoDD 


1 o 
lo 








CLC 




2780 ! 


ATCC 

0356 


86 


r\D 
Dd 






STXZ 


FLOG 


2790! 


1 0358 


65 


DB 






ODCZ 


FLftG 


2800! 


! OvjSR 


OCT 


A A 
00 






STOfiX 


$0000 


2810! 


035C 


B5 


/S M 

01 






LDAAX 


$0001 


2820! 


035E 


S3 


00 






ODCIM 


$00 


2830! 


1 AT^ A 

! 0360 




A 1 

01 






STfiZX 


$0001 


2840! 


1 /ST/? ■Tk 

! 0362 


c8 








INX 




2850! 


! 036^ 


C" Q 
CO 








INX 




2860 ! 


! 0364 


CTD 
CO 








INX 










/i c* 


AT 




JMP 


HOOG 


2860 












VOEG **** 


2890! 


1 ATC O 

! U36o 


AO 


AT 

03 




vUjbb 


LDXIM 


$03 


2900! 


! 036P 


8b 


F6 






STXZ 


BYTES 


2S10 ! 


! 036L 


A'"> 


re 
r r 






LDXIM 




2S20 • 


! 036E 


86 


ro 






STXZ 




2S30 


• ATTA 

! 0370 


c □ 
CO 








INX 




2y40 


1 ATTi 
! 037 1 


8b 


r D 






STXZ 


INH 


2350 


• ATTT 
I 03/3 


c4 


AC 
UZL 




bLnr 


CPXZ 


PNTER 






1 A 
1 U 


1 / 






BPL 


EIND 


2370 


I ATTT 
! Oo / / 




AO 






LDftflX 


$0002 


2380 • 


1 ATTQ 


OCT 

8D 


CA 

r H 






STfiZ 


POINTL 




• AT70 


DD 


uu 






LDAAX 


$0000 


3000 


! 037D 


8uJ 


cb 






STftZ 


CURflDL 


T A < A 

3U10 


I Oo7r 


OCT 


A 1 






LDPPX 


$0001 


3020 


! 0381 


8D 


c7 






STPZ 


CURADH 


TATA 

3030 


I ATQT 










TXS 




3040 


» 0384 


OA 


/i 7 

4 / 


4 IT 




JSR 






• VwlO f 


DM 








TSX 


3060 


t 0388 


ES 








INX 




3070 


! 0389 


E8 








INX 




3080 


I 0380 


ES 








INX 




3090 


! 038B 


4C 


73 


03 




JMP 


SCHF 


3100. 












EIND ***♦ 


3110 


! 038E 


fl9 


FF 




EIND 


LDftIM 


$FF 


3120 


! 0390 


85 


E4 






STftZ 


ENDftDL 


3130 


: 0392 


fl5 


E9 






LDftZ 


CENDH 


3140 


! 0394 


85 


E5 






STftZ 


ENDftDH 


3150 


! 0396 


E& 


E5 






INCZ 


ENDftDH 


3160 


! 0398 


20 


D3 


IE 




JSR 


BEGIN 


3170 
311^1 


i 039B 


4C 


ID 


IC 




JMP 


RESET 
$77 


t 039E 


77 








9t 



FLftG :=1 



sorina naar VWIS 



is dan 0 Am 



ais X «> PNTER dan 
sorina naar VOEG 
(inhouB van adres $0000+X) := 
(InHqud vati adres $0000+X)'fX 



(injjijud yan adres $OOOX+X) 

v*fi Adres ♦0001i^3t>^<?«rrf 

BYTES: =3 ^ 

P0INTH:=$FF ' ■ 

INH:=00:X:=0 

als X=> PNTER dan 

sorina naar EIND 
POINTL :=0002+X 

CURfiDL:=0000+X 

CURflDH:=0001+X 

vfM lAitml torn aan adrm 

XJ-X+3 



ENDftDL :=$FF 

ENO#9t^;«CEMI}>4 

..•..;0i;.-; 
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} ASS L 



0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 



**«#*#«* TEKST NflflR GEHEUGEN #»**#*#* 
♦#««»»♦• #»*««*«• 



OOOR 



DOEL PROGRflMMfl 



DICK DE JONG 
LEEUMAROEN 



DIT HULPPROGRftMMfl IS GESCHREVEN VOOR EEN flNDER PROGRAM- 
MO WfifiR VEEL INVOER-SCHERMEN Vmm ilJN INAW-PROiRWWA 
MET TWEE CASSETTES). 

TEKSTEN WORDEN IN6EV0ERD EN TEVENS KOMT HET BEGINfiDRES 
OP HET SCHERM WflflR DIT STUKJE TEKST IN HET GEHEUGEN 
SJS?I^«. '^9S!32fik^SS^?!IK«^°Pf^^<3EUS BIJ EEN PROGR«M«fl MEXfl- 
DECIMAflL INGEVOERD WORDEN. 

flLGEMEEN 

STflRTODRES PROGRflMMfl = $0200 

BIJ EERSTE K0PRE6EL OPGEVEN EEN L. S OF E RESPECTIIVE- 
LIJK LEZEN, SCHRIJVEN OF EINDE VON HET PROGROMMO. 
BIJ K0PRE6EL TWEE INVOEREN EEN 4-CIJFERIG ODRES WOOR DE 
TEKSTEN IN HET GEHEUGEN KOMEN TE STOAN EN AFSLUITEN MET 
DE <CR>*1tlEmr 

SCHRIJVEN GEHEUGEN - ' *' ■ •■; 

NU KAN MEN TEKSTEN INVOEREN EN. INDIEN MEN OP HET EIND 
VAN DE TEKST DE <CR>-TOETS GEBRUIKT. KOMT IN HET GEHEU- 
GEN EEN ETX-TEKEN ($03) OCHTER DE TEKST EN KOMT HET PRO- 
GRAMMA MET DE TERUGMELDING VON HET V0L6ENDE ODRES VON- 
WAAR MEN DUS NIEUWE GEGEVENS KAN INVOEREN. 
BIJ GEEN NIEUWE GEGEVENS KAN MET UIT HET PROGRAMMA KOMEN 
DOOR DE <DEL>-TOETS ($7F). OOK DIT TEKEN KOMT IN HET GE- 
HEUGEN DAAR DIT NODIG IS BIJ HET LEESGEDEELTE OM flUTOMA- 
TISCH TERUG TE KEREN N««R KOPREI^-1 ilJ Elfcf tlim 

LEZEN BEHEUGEN : ■ ' • 

NA HET OPGEVEN VAN EEN <L> BIJ K0PRE6EL-1 EN EEN ADRES 
VANWAAR GELEZEN MOET WORDEN BIJ KOPREGEL-2 KAN MET DE 
<CR>-TOETS (OF SPATIEBALK) STEEDS 1 REGEL OP HET SCHERM 

2ERI25^KT w°5S^N dus t/m een etx-teken (dit teken komt 

ECHTER NIET OP HET SCHERM). 

INDIEN HET PROGRAMMA HET DEL-TEKEN (♦7F) TE6ENK0MT. GAAT 
BS-TOETS * 

■tsrssssssss 

INDIEN MEN DEZE .<BS>-TOETS ($08) GEBRUIKT. GAAT HET PRO- 
GRAMMA IN HET GEHEUGEN OOK 1 POSITIE (OF MEEJ^DERE) TERUG 
IN OVEmHtTEMMING MET NET BEELDSCHERlli 

SPECIALE TEKENS 

HET CR-TEKEN (*0D) KAN NIET INGEVOERD WO 
TEKEN GEBRUIKT IS BIJ HET AFSLUITEN VAN 
BIJ ANDERE TEKENS. ZOALS LF ($0A) EN If^ i 
REKENING GEHOUDEN IN DIT PROGRAMMA. 

EINDE PROGRAMMA 

INDiEn mEn BIJ KOPREGEL-1 EEN <E> INTOETST GAAT HET PRO- 

i.'^?K2PnT5?^^Tf!S?Soy^^ MONITOI^iOSSftMrtfl MET T^NS^BE TE- 
RUGMELDING "JUNIOR", 
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mm 



0200- 
0202- 
0206- 
0206- 
0209- 
020B- 
020E- 
0211- 
0213- 
0216- 
0219- 
02 IB- 
021D- 
0220- 
0222- 
0224- 
0226- 
0228- 
022ft- 
022D- 
0230- 
0232- 
0235- 
0236- 
0239- 
023C- 
023E- 
0240- 
0243- 
0246- 
0249- 
024C- 
024E- 
0251- 
0253 
0256 
0259 
025B 
025D 
025F 
0262 
0264 
0266 
0268 
026B 



fl2 00 
fiO 00 

09 OC 
20 34 
ft9 83 
8D F7 
2C D5 

10 FB 

20 DO 02 
20 AE 12 
C9 45 
DO 03 
4C 5F 
C9 4C 
FO OC 
C9 53 
FO 08 
09 08 
34 
16 
85 10 
20 E8 11 
E8 

20 DO 02 
20 OE 12 
C9 OD 
FO 06 
20 6F 
4C 39 02 
20 E8 11 
20 E8 
05 F9 
20 8F 
05 F8 
20 8F 
20 E8 
10 



20 
4C 



13 

10 
10 



10 



13 
02 



i: 



11 

12 

12 
11 



12 



- 05 
C9 53 
DO 28 
20 OE 
C9 OD 
DO 08 
09 03 
20 OE 02 

- 4C 46 02 



0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1360 



VOR 
LOM 
HIGH 



RDFLA6 
CNTD 



LOBJUN 
CRLF 
HEXNUM 
PRBYT 



RECCHO 



INIT 
CLEAR 

CO 



LSE 
E 



L 
S 

BACKSP 
□PBER6 

ODRES 
PRADR 



smmF 



6EBRUIKTE ODRESSEN IN P06IN0 NUL 



DE *0010 
DE *00Fa 
DE $00F9 



BEVOT DE CONST. L OF S 
ODRESWIJZER LflOG 
ODRESWIJZER HOOG 



ODDRESSEN IN POGINA 10 



DE »10D5 ; 
DE flflF? : 

SUBROUTINES 

DE *105F 
DE »11E8 
DE *126F 
DE ♦128F 



FLOG REGISTER 
COUNf 11^4 T 



JUNIOR MONITOR COLL 
CORRIOGE RETURN & LINEFEED 
CONVERTEERT OSCII KOR. NOAR HEX NIBBLE 
CONVERTEERT BYTE IN ftCCU NOOR ASCII 



I/O DEFINITIES 



DE «12AE 
DE »133« 

OS 



LDX #0 
LDY #0 
LDA #*0C 
JSR PRCHA 
LDA #*83 
STA CNTD 
BIT RDFLAG 
BPL CA 
JSR PRINT 
JSR RECCHA 
CMP rE 
BNE L 

JMP LABJUN 
CMP #'L 
BEQ OPBERG 
CMP #'S 
BEQ OPBERG 
LDA #8 
JSR PRCHA 
JMP LSE 
STA *VAR 

JSR cmjp 

INX 

JSR PRINT 
JSR RECCHA 
CMP #*0D 
BEQ PRADR 
JSR HEXNUM 
JMP ADRES 
JSR CRLF 
JSR CRLF 
LDA *HIGH 
JSR PRBYT 
LDA *LOW 
JSR PRBYT 
JSR CRLF 
LDA *VAR 
CMP #'S 
BNE LEES 
JSR RECCHA 
CMP #*0D 
BNE SA 
LDA »3 
JSR MEMPLA 
JMP PRADR 



: HAAL KARAKTER VAN TOETSENBORD 
l-Pilllif t^lRflKTER QP SCHERM 



INITIALISEER 
X EN Y REG. 
SCHOONMAKEN 
BEELDSCHERM + 
WACHTTIJD 



PRINT KOPREGEL-1 
<E>-TOETS INGEDRUKT ? 
JA, TERUG NAAR MONITOR 
NEE. DOORSAflN 

<L>-TOEfS ? 
JA 

<S>-TOETS ? 
JA 

1 POSITIE TERUG OP 

BEELDSCHERM 

TERUG NAAR STARTVRfl^ 

L OF S OPBERGEN 

PRINT KOPREGEL-2 

VERHOOG X-REG. 

SAMENSTELLEN 
ADRES INDIEN 
<CR>-TOETS DAN 
VERDER NAAR 
PRADR 

PRINT GEH. ADRES 
VANWAAR TEKST 
GELEZEN OF GESCHREVEN 
MOET WORDEN 



TEST VAR OP 

i^M m SCHRIJVEN 



LEES TEKEN, 
<CR>-TOETS, 
ETX-TEKEN 



INDIEN 

AFSLUITEN TEKST MET 



; EN PRINTEN NIEUM ADRES 
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•Mi— BiMJi ■■ nig ^KmJI: >1 I III I 



KEIMMER 



026E- 


C9 


08 




0270- 


DO 


06 




0272- 


20 


CO 


02 


0275- 


4C 


5F 


02 


0278- 


C9 


7F 




027R- 


FO 


06 




027C- 


20 


hE 


02 


027F- 


4C 


5F 


02 


0282- 


91 


F8 




0284- 


4C 


00 


02 


0287- 


Bl 


F8 




/SOCIO 

0289- 


C9 


03 




028B- 


DO 


1 1 




028D- 


20 


BO 


02 


0290- 




Ht 


12 


0293- 








0295- 


FO 


flF 




0297- 


C9 


7F 




0299- 


DO 


flB 




029B- 


4C 


00 


02 


029E- 


C9 


7F 




02R0- 


DO 


03 




02ft2- 


4C 


00 


02 


02fl5- 


20 


34 


13 


02fifl- 


20 


BO 


02 


02hB- 


4C 


a? 02 


02hE- 


91 


F8 




02B0- 


R9 


FF 




02B2- 


C5 


F8 




0284- 


DO 


07 




02B6- 


Eb 


F9 




02B8- 


R9 


00 




02BH- 


OCT 

85 


F8 




02BC- 


60 






02BD- 


Eb 


F8 




02BF- 


60 






02C0- 


09 


00 




02C2- 


C5 


F8 




02C4- 


DO 


07 




02C6- 


C6 


F9 




02C8- 


fly 


FF 




02Ch- 


85 


F8 




02CC- 


80 






02CD- 


C6 


F8 




02CF- 


80 






02D0- 


BD 


DF 


02 


02D3- 


C9 


03 




02D5- 


FO 


07 




02D7- 


20 


34 


13 


02Dfl- 


E8 






02DB- 


4C 


DO 02 




60 






02DF- 


46 


2D 


54 


02E2- 


4F 


45 


54 


02E5- 


53 


45 


4E 




3A 


20 


4C 


02EB- 


2C 


53 


2C 


02EE- 


45 


2E 


20 


02F1- 


4B 


45 


55 


U^r4— 


DH 


45 


3fl 


02F7- 


20 


03 




02F9- 


58 


41 


4E 


02FC- 


41 


48 


20 


02FF- 


47 


45 


48 


0302- 


45 


55 


47 


0305- 


45 


4E 


41 


0308- 


44 


52 45 


030B- 


53 


3A 20 


030E- 


03 







1390 
1400 
1410 
1420 
1430 
1440 
1450 
1480 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1580 
1570 
1580 
1590 
1600 
1610 
1620 
1830 
1840 
1650 
1680 
1670 
1880 
1890 
1700 
1710 
1720 
1730 
1740 
1750 
1780 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1880 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1980 
1970 



SB 



flCCMEM 
LEES 



LA 
LB 



MEMPLfl 
MEMPLB 



MA 

MEt#l|N 



MB 

PRINT 



PA 



TABA 



1980 



CMP #8 

BNE SB 
JSR MEMMIN 
JMP SCHRYF 
CMP #*7F 
BEQ ACCMEM 
JSR MEMPLA 
JMP SCHRYF 
STA (LOW),Y 
JMP INIT 
LDA (LOW),Y 
CMP #3 
BNE LA 
JSR MEMPLB 
JSR RECCHA 
CMP #*0D 
BEQ PRADR 
CMP #»7F 
BNE PRADR 
JMP INIT 
CMP #*7F 
BNE LB 
JMP INIT 
JSR PRCHA 



INOIEN CBS> DAN OE BEHEUSEN- 
ADRESWIJZER 1 POS. VERLftSEN 

TERUB NAAR INPUT VAN TEKENS 
<DEL>-TQETS ? (EINDE INPUT?) 
JA 
NEE 

TERU6 NAAR INPUT VAN TEKEI« 
OPBERGEN ACCU-INHOUD 
EN TERUG NAAR HET BEGIN 
INHOUD GEHEUGENWIJZER NAAR ACCU 
ETX ? 

INDIEN NEE, NAAR LA 
VERHOSBi ADRESWIJZER 

<cR>-Torm % 

JA 

<DEL>-TOETS ? 

NEE DAN AFDRUKKEN NIEUM ADRES 
JA DAN NAAR BEGIN PR06R. 
<8EL>-T0ETS ? 




JA 

AFDRUKKEN TEKEN 
VERHQegM . JU9RESWI JZER 
^ miUU TEKEN 



; OPBERGEN ACCU Ihi^ 

VAN DE 

IRES WIJIER 



VERLAGEN VAN DE GEHEU6EN 
ADRESWIJZER INDIEN DE <BS>-TOETS 
IS IN^RUKT 



§TA (LOW),f 
LDA #*FF 
CMP *LOW 
BNE MA 
INC *HIGH 
LDA #0 
STA *LQW 
RTS 

INC *LOW 
RTS 

LDA #0 
CMP »LOW 
BNE MB 
DEC »HIGH 
LDA #»FF 
STA «LOW 
RTS 

DEC »LOW 
RTS 

LDA TABA,X 
CMP #3 
BEQ PA 
JSR PRCWI 
INX 

JMP PRINT 
RTS 



: KOPREGELS 

■ 

.'by 'f-toetsens l,s,e. keuze! ' tea 



PRINT-SUBROUTINE VOOR 
DE KQPRE8ELS 



. BY *VANfiF BEHEUegtilDRESi ' «03 



1990 



.EN 



E S D S 



KEIMMER 



0010 1 
0020 i 
0030 i 
0040! 
0050! 
0060! 
00701 

ooao : 

0090 ! 

0100 1 

01 10 1 

0120: 

01301 

01401 

01501 

0160! 

0170! 

0180: 

0190: 

0200 : 

0210: 

0220 : 

0230: 

0240 : 

0250 : 

0260: 

0270! 

0280! 

0290! 

0300! 

031GI 

03201 

0330! 

0340! 

03501 

03601 

0370! 

0380 : 

0390 1 

OAOO! 

0410! 

0420! 

0430 s 

0440: 

0450: 

0460: 

0470: 

0480: 

0490: 

0500: 

0510: 

0520: 

0530: 

0540: 

0550: 

0560: 

0570: 

0580! 

0590! 

0600! 

0610! 

0620! 

0630! 

0640! 

0650! 

0660: 



«*«*« PATCHES MICRO-flDE #»»*» 
««-»*««««««««««*««*»«««*«»«*«««»«»«««« 

^or s Sebo T. Woldrinoh 
Klieverink 619 
1104 KC flmsterdam 

IN Micro-flDE ZITTEN TWEE FOUTEN. DIE ERG HINDERLIJK 
ZIJN flLS JE ER TEGENflflN LOOPT, DE ENE IS EEWOUSie 
OP TE LOSSEN. DE flNDERE IS TE VERMIJDEN. 

- ONTERECHTE (6F> FOUT-SIGNfiLERING IN PflSS-1. 

AF EN TOE KOMT HET VOOR DPT Micro-fiDE E£N LABEL 
TEN ONRECHTE PFWIJST. OMDPT HIJ (VOLSENS Micro-flDE) 
DUBBEL VOORKOMT. DE OORZAftK: Micro-flDE ,2BEKT N,IEI 
IN DE SYMBOL-TABLE VflNAF D£ !• SYMBDL-SirtSri'. MftBi 
VANAF DE Oe ! ! 

DUS ALS JE DE SYMBOL-TABLE OP $6000 LAAT BEGINNEN. 
DAN ZOEKT Micro-ADE VANAF $5FF8! STflflT DflflR (TQE- 
VALLIG) EEN LABELNAAM. DIE IN JE SOURCE WD8DT BE- 
BRUIKT. DAN KEURT Micro-ADE HE:i AF. 
DEZE PROBLEMEN ZIJN TE VERMIJDEN DOOR O*-' DE B 
BYTES VOOR DE SYMBOL-TABLE $00 TE ZETTliii, 

- FOUT BIJ_]__=_*-"fl ' DEFINITIE^ 

MET DE PSEUDO ' = . . . ' KAN EEN BYTE EEN BEPAALDE 

INHOUD 6E6EVEN WORDEN. 

... KAN ZIJN *nn (hex-waarde) 

'n (ascii-Maarde) 

(label) (label-adres) 
WORDT 6EP00GD OM DE WAARDE FA (hex) TE DEFINIEREN 
(HETZIJ DOOR = *FA OF BIJV. xxxx * $FA, 
DAN KUN JE BETER DE LISTING EN OBJECT " 
PLAATS VAN ER lETS MEE TE DOEN. 

DIT PROBLEEM IS OP TE LOSSEN DOOR DE VOLBENDi If** 
STRUCT I ES AAN Micro-flDI TOE TE VOESENs 



3014 










ORB 


$3014 








3E 


00 


PCHI 


« 


*003E 








46 


00 


LENSTH « 


$0046 








47 


00 


OP 


* 


$0047 








80 


27 


HEXR 


« 


$2780 








8B 


27 


OUTSP 


# 


$278B 








63 


2A 


BACK 


« 


$2A63 








83 


2A 


PRBUF 




$2A83 




3014 


DO 


04 






BNE 


A 




3016 


A5 


46 






LDA 


LENGTH 




3018 


30 


08 






BMI 


TISTAR 




301fl 


A5 


3E 




A 


LDAZ 


PCHI 


NO. DO WHATEVER IT 


301C 


20 


80 


27 




JSR 


HEXR 




30iF 


4C 


63 


2A 




JMP 


BACK 


mm BACK 


3022 


AO 


08 




TISTAR 


LDYIM 


f08 




3024 


20 


8B 


27 


TUST 


JSR 




PRINT a SPACES 


3027 


88 








DEY 






3028 


DO 


FA 






BNE 


TUST 




302A 


A5 


48 






LDAZ 


OP 


+01 


302C 20 


80 


27 




JSR 


HEXR 


PRINT LOU AND HIBH 


302F 20 


8B 


27 




JSR 


OUTSP 




3032 


AS 


49 






LDAZ 


OP 


+02 


3034 


20 


80 


27 




JSR 


HEXR 




3037 


20 


8B 


27 




JSR 


OUTSP 




303A 


4C 


83 


2A 




JMP 


PRBUF 





16 



Beachte Redaktie, 



Hierbii zend Ik u tuee 
scheta'^s die voor de lezer 
interessant kunnen zijn. 
Dftar een aeheuaenuitbrei- 
itfll voor de ElekterAinal 
iit 21 X 2102AL4 nogal in 
^ cent en gaat looen, heb 
ik een goedkopere oplos- 
sing bedacht, naaelijk iet 
8 iC's 2114ftL4 + 2 ICS 
74yS2M (2ie scheAa 1). 

toltising is ca. 2.5x 
goedkoper. en nerkt toch 
goed. De Keuze kan geftaakt 
Norden tussen coibinatie 
2102 en 2114 of alleen 
2114. Dit laatste heb ik 
volgens scheda 1 bij eiin 
Elekteriinal toegeoast. De 
strooioonaie is ook bedui^ 
dend ftinder: ca. 280ftA. 
Alleen de uD/doim sturing 
ttit Elektuur van seoteeber 
1979 eoet er nog aan toe- 
gevoegd Norden. Schena 2 

Seeft aan hoe het ook zou 
umm m% I % HM6 U &P . 
Bit ii mi t % 
goedtfipef. 

R. Baarslaa 

Beatrixstraat 3 

5161 HR SofirK!-&ipelle 



aan de tekentafel: 
Fridus Jonkean 




isfe igt, Abz ^B* 



11 . IS 




□3 A9 
Di KQ 

A9 
A3 

^2 

Ai 






1? 








2 


I 






fO 


b 









tgl i3i III / 
M I / 



m 



i 



0JS 



fx 



1^' 



To 



4- 



1(9 



P5 



6666 6 6 6 6 ^ <» 



-A3 



IT 13 



NZ 



M: 3 2 J 0 



17 
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Over beide schema's kan ik 
vertellen dat N7 - N13 
niet noodzakelijk zijn. De 
OD lijn fl oetekende ounten 
ftoet ien dan aansluiten oo 
de Elekterftinal achter de 
ooorten Nl - N7 van de £- 
lekterminal print. Mil men 
toch de BO - B6 connector 
gebruiken, dan is If « il3 
Nel noodzakelijk. 

De werking van schema l: 
flls er data via connector 
BO - B6 en N7 - NIO aange- 
boden wordt od de tristate 
buffer inoanaen Ifll - lfl4 
van Nl en'N2'Bn het R/W- 
signaal is oositief, dan 
koftt de aanoeboden data oo 
de databus ie staan (fl+B). 
Deze data kan met oo ce 
MO - M6 connector terecht 
koflten oindat het Dositieve 
R/W-signaal ce 2fll - 2ft4 
ingangen van Nl - N2 dicht 
houdt (zie bijlaae ft). 
Een negatief R/W-signaal 
R/W-siqnaal stuurt dus de 
2fll - 2fl4 ingangen ooen en 
t evens de 1ft 1 - 104 ingang- 
en dicht en v.v. De adres- 
sering geschiedt d.m.v. de 
adresbus en wordt oo de E- 
lekterminal aangesioten. 
De Daqina sturing oftei*el 
weik KflM-oaar geadresseerc 
Nordt gebeurd met net CEo 
- Z£^ signaal (negatief). 
De aansturing van CE^ - 
CE i gebeurd met de oage uo/ 
down^stunna uit Elektttur 
van seot. '79. 

Het uitlezen van cata ge- 
schiedt a.«. V. een negatief 
R/13-signaal. De aangeboden 
adresserinq d.m.v. AO - ft9 
en Z£o " CE^ wi.jst aan waar 
de data gehaaid'moet worden 
Deze data komt oo de data- 
bus ft en B terecht. Daar 
R/5 neaatief is, komt de 
data via 2fil - 2ft4 buffer 
van Nl en N2 oo de MO - M6 
connector terecht en wordt 
door de Elekterminal ver- 
werkt. Dus in elk Rftfi-paar 
2114 wordt 1 
slagen. 



Nl r::)MLS2H' 
^^,[0^\\ - now 



s 



4 



BSo ^ 



T 




ililliiJii 

. > . . ^ A< 



nf W 

H; 9 fc M: 3 1 1 # 
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De Merkinq van schema 2: 
Deze is vrijwel identiek 
aan schena 1, alleen ge- 
bruiken Ne nu Aaar 2 aeheu- 
qen IC's i.p.v 8. Dus'in 1 
IC zitten 2 pagina's beeld- 
schertgeheugen.^ Oe oagina- 
aansturing moest hier Nel 
aangeoast'worden d.n.v. N3 
en N4. Zie de Maarheidsta- 
bel voor de selectering 
van de oagina's. 
Het dataverkeer is identiek 
aan dat van schema 1. De a- 
dressering is oo 1 opt 
verschillend i.v.«. de dE- 
aansturing. Vender geldt 
het verhaal van schaia 1 
ook voor schema 2. 
Moot : BO - ^ ftS - 09, 
MO - K& en R/U en A ioeten 
met de Elekteptiml mfi^nr 
den worden. 



BIJLABEft 
DATABUS A ca. B 




Pen 1 


+ it*RW 


Pen 20 


= + Vcc 


Pen 10 


= BND (-> 


Pen 2 


= 1 fll 


Pen 4 


= 1 02 


Pen 6 


= 1 A3 


Pen 8 


- 1 M 


Pen 11 


= 2 fll 


Pen 13 


= 2 fl2 


Pen IS 


» 2 A3 


Pin IT 


* 2 m 



waarhe ids tabe 1 



IC 1 
A10 CE 


IC 2 
AID CE 


^^0 




CE^ 




0 


0 


1 


1 


0 


1 


1 


1 


1 


0 


1 


1 


1 


0 


1 


1 


1 


1 


& 


0 


1 


1 


0 


1 


1 


t 


1 


0 


1 


1 


1 


0 


PAG 0 


PAG 1 


PAG 2 


PAG 3 
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COMMOLORE BASIC 1.0. or Orioinal RDNb (For PET 2001) 

Tokenized Microsoft Basic Keywords and addresses N. de Vries 

Amiogous to the Bublication for ErnKk^gmt^ iiv A. Husller. 
DE 6502 KENNER. December 1983. oases S-8. 



COMMANDS 

KemmB corresponding to C092 

ADDRESSES CORRESPONDING TO COOO 

THE ADDRESSES OF ROUTINES FOR COMMANDS ARE THE ADDRESSQI: 
MINUS 1. BECAUSE THE mmttm HM iNMcSi^i THR0U(3M RtS. 



KEYMORD 


»r..,.L..-».i~il... : — 


ADDR-l 


1 ■ 






wm 




' C71D 


---■"-7— ;-^-«- ■ 

^ ' ^mtr 


92 


D701 


FOR 


81 


C64a 


LOAD 


93 


FFD4 


NEXT 


82 


CC35 


SAVE 


94 


FFD7 


mm 


83 


C7EF 


VERIFY 


95 


FFDA 


INPUT# 


84 


CAC5 


DEF 


96 


D294 


INPUT 


m 


CADF 


POKE 


97 


D6Fa 


mn 


tut 

mm 


CF70 




98 


C97E 


MEW 


87 


CB23 


PRINT 


99 


C99E 


LET 


88 


C89C 


CONT 


9A 


C744 


eOTO 


89 


C79C 


LIST 


m 


C5A7 


RUN 


SA 


C774 


CLR 


9C 


C76F 


IF 


86 


C81F 


CMD 


9D 


0984 


i^reRE 


8C 


C70C 


SYS 


9E 


FFDE 


BOSUB 


8D 


C77F 


OPEN 


3F 


FFBF 


RETURN 


8E 


C7C9 


CLOSE 


AO 


FFC2 


REM 


8F 


oem 


BET 


Al 


CA9E 


STOP 


90 


C71B 


NEU 


A2 


C550 


ON 


91 


C842 








NULL 













MISCELLANEOUS KEYWORDS 

KEYWORDS CORRESPONDINB TO CUD 



KEYWORD 



TOKEN 



TftB( 

TO 

FN 

SPC( 

THEN 

NOT 

STEP 



A3 
A4 
AS 
A6 
A7 
A8 
A9 



20 



PE : |— B "-^ I I B — " KEMIMER 



COmOmm basic l.O. or Orioinal ROMs (For PET 2001) 
Tokenized Microsoft Basic kevwords and addresses 



I . I 

I mmiC OPERATORS f 

I i 

I KEYWORDS C0RRESPONDIN6 TO C134 I 

I I 

I PRIORITIES AND ADDRESSES CORRESPONDING TO C074 I 

i f 

I THE ADDRESSES OF ROUTINES FOR DYADIC OPERATORS ARE THE I 

I ' ADDRESS MINUS 1. BECAUSE THE ROUTINES ARE INVOKES I 

I immu A RTS INSTRUCTION. I 

I - I 



KEYWORD TOKEN ADDR-1 PRTY 



+ 


AA 


D73E 


79 


add it ion 




AB 


D727 


79 


subt raction 


* 


AC 


D8FF 


7B 


mult iolicat ion 


/ 


AD 


D9E3 


7B 


division 




AE 


DEE2 


7F 


exDonentation 


AND 


AF 


CED6 


50 


looical AND 


OR 


BO 


CED5 


4g 




monadic "-" 


AB 


DE66 


7D 


neaation 


monadic NOT 


AS 


CDE7 


5A 


looical NOT 


> 


Bl 


CF05 


64 


coiYioarison 




B2 


CF05 


64 


comoarison 


< 


B3 


CF05 


S4 


como«riitO¥| 



I 

FUNCTIONS i 

I 

FUNCTIONS CORRESPOI#lfli TO C141 j 

i 

ADDRESSES CORRESPONDINB TO C046 1 

I 



KEYWORD TOKEN ADDR 



SGN 


B4 


DBOB 


TAN 


CO 


. DFEE 


INT 


B5 


DB3E 


ATN 


Cl 


E04e 


ABS 


BE 


D62A 


PEEK 


C2 


D6E6 


USR 


B7 


0000 


LEN 


C3 


D654 


FRE 


B8 


D264 


STR* 


C4 


D349 


Pii' 


m 


D28S- 


VAL 


es 


D685 


SQR 


m 


DE24 


ASC 


C6 


D663 


RND 


BB 


DF45 


CHR* 


C7 


D5C4 


LOG 


BC 


D8BF 


LEFTS 


ci 


D5D8 


EXP 


BD 


pEAO 


RI6HT* 


C3 


&&04 




BE 




mm ■ - 


m 


SIN 


BF 


im' 









Notes 1) Bit 7 in the last character of eaeft llM^iNj it set ti ilillfikifi* 
the end of a kevword 
2) Keyworits are tokenized bv addiiwi x'BO' to their relative (hex) 
oosition in the table. 



PE:| — g ■ — p I I yJ KEIMIMER 



> RUN ASS L 



3400- 
3403- 
3405- 
3407- 
3409- 
340B- 
340E- 
3410- 
3412- 
3414- 
3417- 
341fi- 
341B- 
341D- 
341F- 
3421- 
3423- 
3424- 
3426- 
342S- 



11 



m m m 

AO 00 
A2 00 
A9 00 
85 DD 
20 E8 
B5 00 
C9 00 
FO 33 
20 S6 34 
20 F3 11 
E8 

E6 DD 
AS DD 
C9 08 
DO EB 
C8 

CO 08 
DO DF 
20 ES 11 



342B- 05 88 
342D- C9 08 
342F- FO 08 
3431- AO 00 
3433- 20 80 34 
3436- 4C 3E 34 
3439- AO 10 
343B- 20 80 34 
343E- AE 00 lA 



0010 
0020 
0030 
0040 
OOSO 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 

0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0360 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0370 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 



BORD 

KLEUR 

LINE 

CRLF 

PRSP 

RECChffi 

PRCHA 

SAVEX 

TEMPX 

USURP 

TABLE 

CHAR 

MESSA6 



STflRT 
STORE 
LOOP 

ROOM 



*•••««»«« IMIRPATOR 8CHAAKPR06RAMMA 0^ SCHEf?M 
#«#»«««#» *«««»««»« 

DOOR t DIRK M. VERZIJDEN 



DIT PROBRAMMA IS BEDOELD OM HET SPEELBORD VAN USURPflTOR, 
HET SCHAAKPROGRAMMA VGOR DE 6502 EN 6800 VAN H. S. MULLER 
EN VERKRIJBBAAR BIJ UITSEVERIJ WOLFKAMP TE AMSTERDAM. OP 
DE MONITOR TE PRESENTEREN. 

ER WORDT HIERBIJ VAN UITBEGAAN DAT DE EERDER IN DE 6502 
KENNER NR. 30 BEPUBLICEERDE PATCHES OP USURPATOR UITGE- 
VOERD ZIJN. 

DE STUKKEN WORDEN VOORGESTELD DOOR EEN HDOFDLETTER. DE 

PIONNEN DOOR EEN ASTERIX (*). DE ZWARTE STUKKEN Oh©ER- 

SCHEIDEN ZICH VAN DE WITTE DOOR EEN MINTEKEN (-). 

DE ENIGE PATCH IN USURPATOR IS ADRES *22FA i DEZE IS 20 

AE 12 EN WORDT 4C 00 34. 

HET STARTADRES BLIJFT ♦2200. 



CARRIAGE RETURN ft LIIEI^ID 
PRINT EEN SPATIE 
HAAL EEN TOETS VAN KEYBOARD 
PRINT KARAKTER OP SCHERM 



.DE 


♦0000 


• DE 


♦0088 


• DE 


♦OODD 


■M 


♦11E8 




♦11F3 


.DE 


♦12AE 


.DE 


♦1334 


.DE 


♦lAOO 


.DE 


♦lAOl 


.DE 


♦22FD 


.DE 


♦34A0 


.DE 


♦34B0 


,DE 


♦34C0 


tm 


•1400 


Itx 


SAVEX 


LDY 


»0 


LDX 


«0 


LDA 


*0 


STA 


«LINE 


JSR 


CRLF 


LDA 


*B0RD. X 


CMP 


#0 


BEQ 


EMPTY 


JSR 


PRPIEC 


jSR 


PRSP 


INX 




INC 


♦LINE 


LDA 


*LINE 


CMP 


«8 


tm 


IM 


CPY 


«8 


BNE 


STORE 


JSR 


CRLF 



6EWAAR X-RE6 
MAAK REGELS NUL 
MAAK VELDEN NUL 
mm VELDEN/REGEL ttUL 



LWiDT WAARDE VELD 
IS HET VELD LEEB ? 
JA. NAAR EMPTY 
NEE, LAAT STUK ZIEN 



: VERHOOG VELDEN/ REBEL 

; m msL f 

: NEE, GA VERDER 

: JA, VERHOOG RESELTELLER 

! 8 REBELS BEHAD ? 

? NEE, START NIEUWE REBEL 

I ALtE 64 VELDEN 6EHAD 



WHITE 
OUT 



: WIT/ZWART AAN ZET 

■ 

LDA #KL^ : KIJK WIE ER AAN ZET IS 

CMP #8 _ ; IS HET WIT ? 

&m HHIlt ; JA. NAAR WIT 

IM m 5 NEE, LAAT ZIEN DAT ZWART 

m Sipy : AAN ZET IS 

JP^ OUT 

LDY t^lO : LAAT ZIEN DAT WIT 

JSR MESSf : AAN ZET IS 

LDX SAVEX : HAAL X-RE8 OP EN 
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20 


ftE 

ni««. 


12 


0710 




JSR 


RECCHA 


: WACHT OP TOETS EN 






FD 

IT mi' 


22 


0720 




USURP 












0730 
















0740 




• Wm EEN LEE6 VELD AF 










0750 




■ 






3447- 


ft9 


3ft 




0760 


EMPTY 


LDfl 


#»3A 


: DRUK EEN DUBB^ 


34A9~ 


20 


34 


13 


0770 




JSR 


PRCHA 


344C- 


A9 


3ft 




0780 




LDA 


«$3A 


: DEELTEKEM IT 


344E- 


20 


34 


13 


0790 




JSR 


PRCHA 




4C 


17 


34 


0800 
0810 




JW* 


ROOM 


: TERU6 NAAR ROOM 










0820 




' : DRUK EEN W 










0830 










3454- 


B5 


00 




0840 PRPIiC 


LOA 


♦BORD, X 


: sTuic mmmm 


3456- 


29 


OF 




0850 




AND 


#5400001111 


3458- 


8E 


01 


1ft 


0860 




STX 


TEMPX 


: BEMMII VELOEMtBLLER 


345B- 


ft2 


FF 




0870 




LDX 


#»FF 


345D- 


Ed 






0880 


NOT 


INX 






345E- 


DD 


ftO 


34 


0890 




CMP 


TABLE. X 


: TAST KARAKTER TABEL AF 


3461- 


DO 


Fft 




0900 




BNE 


NOT 


: NOG NIET 6EV0NDEN 


3463- 


BD 


BO 


34 


0910 




LDfl 


CHAR. X 


: LAADT ACCU MET STUK 


3466- 


EO 


06 




0920 




CPX 


#6 


: IS NET EEN ZWART,;tTl«« t 


3468- 


30 


Oft 




0930 




BMI 


BLACK 


: JA. NAAR ZWART 


346A- 


20 


34 


13 


0940 




JSR 


PRCHA 


J PRINT EEN HIT STUK 


346D- 


20 


F3 


11 


0950 




JSR 


PRSP 




3470- 


ftE 


01 


lA 


0960 




LDX 


TEW>X 


: HflAL VELDENTELLER PP 


3473- 


60 






0970 




RTS 




3474- 


20 


34 


13 


0980 


BLfICK 


JSR 


PRCHfl 
»'- 


I PRINT em ZWflRT STUK 


3477- 


ft9 


2D 




0990 




LDA 


3479- 


20 


34 


13 


1000 




JSR 


PRCHA 


: MET EEN «INTEI®»I («l 


347C- 


ftE 


01 


1ft 


1010 




LDX 


TEMPX 




M7F« 


60 






1020 
1030 




RTS 














1040 




: TEKSTSTRINS AFDRUKK®! 










1050 










3480- 


B9 


CO 


34 


1060 


MESSY 


LDA 


MESSflS.Y : LAAT BOOmmP 


3483- 


C9 


03 




1070 




CMP 


#3 


: EINDE BOODSCHAP f 


3485- 


FO 


07 




1080 




BEQ 


MESEND 




3487- 


20 


34 


13 


1090 




JSR 


PRCHA 


: PRINT KARAKTER 


348ft- 


C8 






1100 




I NY 






348B- 


4C 


80 


34 


1110 




JMP 


MESSY 






60 






1120 
1130 
1131 
1132 


MESEND 


RTS 

« 


f34flQ 




34ft0- 


01 


02 


03 


1140 








«03 f04 «03 «06 «07 «d0 


34ft3- 


04 


05 


06 










34ft6- 


07 


08 














34ft8- 


Oft 


OB 


OC 


1150 




.BY 


$0A «0B 


«0C »0D »0E 0 0 0 


34ftB- 


OD 


OE 


00 












34flE- 


00 


00 














34B0- 


2ft 


50 


4C 


1160 




.tv 


• »PUTl)K»PLTDKi' 0 0 0 


34B3- 


54 


44 


4B 












34B6- 


2fl 


50 


4C 












34B9- 


54 


44 


4B 












34BC- 


3fl 


00 


00 












34BF- 


00 
















34C0- 


5ft 


57 


41 


1170 




.BY 


'ZWART ftfiN ZET f »03 


34C3- 


52 


54 


20 












34C6- 


41 


41 


4E 












34C9- 


20 


5ft 


45 












34CC- 


54 


20 


3A 












34CF- 


03 
















34D0- 


57 


49 


54 


1180 




.BY 


'MIT flfiN lET 1' tOS 


34D3- 


20 


41 


41 












34D6- 


4E 


20 


5ft 












34D9- 


45 


54 


20 












34DC- 


3A 


03 




1190 




.EN 







2fE 5 D ^ KEIMi>#gR ^ 

I 

100 REM PROGRftMMft SPIRftftL 

105 REM NODIG: Junior met cassette en VDU kaart. i 
110 REM ftUTEUR J. P. van TOLEDO 
120 REM Saffvaanstr 37 

130 REM 3193 XH Hoogvliet 

140 REM 010-386534 

150 REM VERWIJDER CyR,^Q,R ^ti SET ORftFISCHE MODE ' 

im P13KE 67224-i8, tS POKt tetf#M 1 . 8: X=USRC ft^CFSE'S ©> 

170 POKE E722+5, 34: POKE E722+ 3, 7: X=USR{: 8."0F3E" , 0) 

180 FOR Q=l TO 6: REM ZES nmU KLEUR yERftNDEREN 

190 IFQ=1 0RQ=3 0R€I=5 THEN Cfl^lSSsdS-iEil «CC«154!Ct>»l6l 

200 IFQ=2 0RQ=4 □RQ=G THEN Cft=183sCB«187lCC«184:CD=l87 

210 PT=ll*=ie*3:REM ftDREQ = B000 

220 DEF FNX<:X) = <Y*=S0)+X'^j*f 

230 Y=:11:HB=35:VB=Y:VE=-Y 

240 fl=-3:B=-l:C=0!E=i:F=2:e=2 

250 FOR J=l TO 13: REM 13 MAftL ROND 

260 REM HOR. mm RECHTS " ' 

270 HB=HB-fi:HE=HB+B \^ .i ' 

280 Y«VE* D=1 

290 FOR X.=+IB TO HE STEP CD) 
300 POKE FNX(X>tCA 
310 NEXT 

320 REM VERT NAftR BlNE&tN . ' ■ 

330 fi=A+4:B=B+4 
340 V*B*VB-C : VE=VB-i"E 
350 D=l: Y=:VE 

360 FOR Y=VB TO VE gTEPtl)) 

370 POKE FMX<X),CB ''<■'.. 

380 NEXT . ■. . ■ 

390 REM HOR. NftftR LINKS ' 

400 C=C+2!E=e+2 • 

410 HB=X-1 :HE=HB-F ■ 

420 D=C-l)5Y=VE 

430 FOR X»fW T® HI SrEPCD) 

440 POKE FNX€X)iCC . i 

450 NEXT I 
460 REM VERT NPlRR BOVEN , 
470 F=F+4 ■ ' I 

480 VB=Y:VE=VB-G 

500 FOR Y=^VB TO VE STEPCDJ 
510 POKE FNX<:X) , CD 
S20 NEXT 

530 G=G+2 . ■ r. 

540 NEXT: NEXT ' ^ t 

530 REW yfteHfLUS CN teSET SCHERM 
560 FOR J=:l TO 3000: NEXT 

570 POKE 6722+5, 0:POKE 6722+9. 8: X=USR«:&"0F9E" , 0) 
580 END 
OK 
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fis you know, a USR-call in Microsoft's KB-9 Basic, mainlv used in Kill- 1 
and Elektor*s JUNIOR-comouter, will usually works as follows: 

10 POKE 8256,0 

20 POKE 8257,3 ^ - ^ ^ 

30 X = USR (Y) 

40 END - : V 

The result of runnina this routine chances Basic's hex-addresses 2040/1 
into a pointer to the adress where your subroutine in machinecode is 
present. In this case on the address $42F0. 

Thouah it is a aood way running a subroutine from Basic, to the oroaram- 
flfter who works all days and niahts from sunrise ur^il sanMt with hen- 
addresses in mind it is a horrible nightmare. 

To find a solution to this oroblem we publish followino patch. But you 
are Married ... don't do it all nifhtm l&ngl 

Call your USR- routine with X=USRCH h»i«-««ddl*) , in which ' NiHc-aidr* #wt 
contain four numbers/figures. 

If patches of Koen v Nieuwenhove are already present, you have to adapt 
the addresses of the published patch to your own addresses. Don't for- 
oet lookina at the Basic addresses 40CD/E. 40CF/D0 and 413D/E. 413F/40 
containing ENDOAT. CNaniC 1^ n#od to extend your Basic* 

Plfons Van De Mtiil*«1^ ^ 
Mechelbaan 49 • 

B 3150 Heist Oo Den Bero (Beloie) 

Adaot ifuao tabel: 2040 FO 

2041 42 ... or your own mem. space 

Get start of argument (if any) 



4265 


20 


68 


12 


RESET 


JSR 


RESIN 


(Junior-PM) Reset 00F8/9 


A2&B 


84 


06 






STY 


»06 


Save Y (0006/7 not further needed) 


426A 


flO 


00 






LDY 


#*00 


Y used as i nd. oointsi|f InilP 


426C 


FO 


08 






BEQ 


LOOK 


(always branch) 


426E 


09 


C7 




BOCK 


LDO 


«C7 


check Basic line pointer lo 


4270 


DO 


02 






BNE 


♦4274 


skip dec. hioh pointer 


4272 


C6 


C8 






DEC 


*ca 


pointer H. - 1 


4274 


C6 


C7 






DEC 


*C7 


pointer L. - 1, point 1 char back 


4276 


Bl 


C7 




LOOK 


LDO 


(*C7). 


Y aet the character 


4278 


C9 


20 






CMP 


#$20 


or " " 


4270 


FO 


F2 






BEQ 


BACK 


ianore spaces * 


427C 


C9 


28 






CMP 


#*28 


or "(" what we are looking for 


427E 


DO 


EE 






BNE 


BOCK 


repeat back until found (muet be o»i 


4260 


04 


06 






LDY 


*06 


found, so aet Y oriainal 


4282 


18 








CLC 






4283 


90 


03 






BCC 


NEXTCH carrv used to relative lumo 


4285 


20 


6F 


12 


SHIFTl 


JSR 


HEXNUM Shift in 00F8/9 sub frowi Pl*! 


4288 


20 


CO 


00 


NEXTCH 


JSR 


$00C0 


fetch next char from Basic-line 


428B 


C9 


29 






CMP 


#$29 


Check ")" = end of arauioent 


428D 


FO 


06 






BEQ 


EXIT 


if so, aet out EXIT 


428F 


eg 


48 






CMP 


#'H 


check for ' H' to ianore it 


4291 


FO 


F5 






BEQ 


NEXTCH if it is. next char. 


4293 


DO 


FO 






BNE 


SHIFTl 


not, must be valid chaK 


4295 


4C 


CO 


00 


EXIT 


JMP 


♦OOCO 


next char and return 


42F0 


20 


65 


42 










42F3 


m F8 00 
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ic minims: 1^ 



> 

is 

2 REM** MANUSCRIPT «♦# 

3 REM** By filfons Van de Meutter »»» 

4 REM** Mechelbaan 49 ; 6*^3150 Booischot (Belaium) *** 

5 REM************************************************** 

i fm 230=»L0NG WflIT/240=CLR.SCRN. /250= NXTLINE/260=BLNK+NXTLNE 

7 i^M 270»TflB*/280=TflB$+IN*/330=INPUT(IN*)/370=EMBLE£M 

8 REM CHR»rlS)*0C-3»DISflB.STfiR-510/CHfl*(26)»St^i.=DELETE LINE 

9 REM CHR$ri*)*S.O»ENLftRG MODE TILL END LINE/CHR* ( 127) =DEL. CHR 

10 PRINTCHilUS) SS0SUB240 

20 DIM B»(lO,64)i60SUB 370:S0SUB 230:PRINTCHR$(19) :SOSUB 240 
22 B«(1,0»»"VV\\'' 

25 PRINT''B«W2Jiill6*m TUiMm s";FR£(0) ;" tekens" SPRINT 

30 PRINT, "*♦« |B^H»«aHTtN ««»»l#iINT, '« — 

40 PRINT 

50 PRINT, "* INVC3ER < Nieu** iWiWuscrlDt )" 

52 PRINT,"* TOON ( Video , oer 16 limen)" 

54 PRINT,"* PRINT ( Paoier/aef ormatteerd) " 

56 PRINT, "* CORRECT ( Verbetef/v«!«i.|ii«f! > " 

58 PRINT, "♦ BEWAOR ( De inhoud >IC^i#le) « 

60 PRINT,"* LftfiDT ( Cassette) }gp«w«tpN<i I" 

62 PRINT, "* HELP ( Toon 0Dir«cM k#a*i ) « 

64 PRINT,"* EINDE C Nomale Stoo Droaram)" 

70 PRINTSPRINT 

80 P R INT " . . U wenst : " ; CH R* ( 08 ) ; CHR* ( 08 ) : CHR* (08) ; 

tl PRINTCHR*<08) :CHR$(08) ; CHR* (08) iCHRtiOB) ;CHR*(08i (08) "CHRf (08) 

82 PRINTCH R$ ( 08 ) ; CHR* ( 08 ) ; CHR* ( 08 ) ; CHR* ( 

83 PRINTCHR* (08) ;CHR* (08) ;CHR* (Oi) :CHR*(W * 

88 INPUT 0P$ 
90 RESTORE 
im REftD S*,T 
il® IF S*="**" THEN 140 

120 IF LEFT* (S», 2) <> LEFT* (OP*. 2) ThEN 100 
130 ON T GOTO 145, 160, 400, 1100, 1400. 1600. 180^,2000 

140 PRINTCHR* (11)+" ONSELDIB "::GQT0aO 

145 PRINT, "*** HELP »*#" :PRINT:PRINT:S0T030 
ISO IWTft ''HELP", 1, "EINDE",2, "INV0ER",3, "CORRECT". 4, "TOON". 5 
152 I>flTfl"PRINT", 6, "BEWflftR", 7, "LftftDT",8, "**", 9 
_£60_PRINT:PRINTSPRINTCH8«(19) ?, "«♦« E X N D E «**» SPRINT, "== 

170 PRINT 

180 INPUT".. Is uw data oaaeooraen ?..{i/ri> ":fl* 
130 IF LEFT*(A*, l) = "J"ORLEFT*(fi$, l)="i"' THEN 210 
2O0 GOTO 1800 

210 PR I NT 5 PRI NT ! 60SUB370 s PRINTCHR* (11) +CHR* (26) +eHR* ( 1 1 ) +CHR* (26) +CHR* (ID +CHR* 
(26) • - 

215 PRINT 

220 PRINT, " )))> EINDE (((("SEND 

225 REM ****** SUBROUTINES #*♦*««»*»«*♦#«***#«*♦*»*« 

230 FOR X=0 TO 8000: NEXT: RETURN! REM LONG WAIT 

240 FOR X=0 TO 16:PRINTCHR*(10) :FQRX|[«*O..IQ lOOsNEXTsNEXTsRETURN 

250 LN=LN+1:R£M NEXTLINE +CHECK PSE Piti - 

251 IF LN=65 THEN LN=0:eOTO 253 

252 RETURN 

253 FORX=0 TO 3 SPRINT: NEXT 

254 P=P+lsIFP«9 THENPRINT" Laatste blad !" 

255 PRI NT " Bl z. " |P : "/ " s PRINT S B* (P, LN ) = " B 1 ad . " +STR* (P ) + " / " s LN=LN+1 
260 B*(P,LN)«* «SS0SUB 250 s RETURN s REM LEGE LIJN +NXTLN 

270 B*(P,LN)=" ": RETURNS REM FIU 10 SPC 

280 B*(P,^LN)=B*(P,LN)+IN*:GOSUB 250sRE'Rjf»<|R£M OtD»+IN* 

290 LI=LEN(IN*) :IF LI)=1 THEN LI-LI-1 

3O0 IF LI=0 GOTO 330 

310 IH*«LEFT*(IN»,LI) 
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* * 


** 


* * 


* 


* 


♦** 








** * 


* 


* 


* * 


##" 






* * * 


* 


* 


* 


##" 


* * 


****** 


* * * 


* 


* 


* 


##" 




* * 


* ** 


* 


* 


* * 


##" 












##" 



320 IN$=IH$:G0T0340 

330 IN$="":GOTD 340: REM STPRT IIMfilf I^ITINI 
340 X=USR(H 12ftE) :I=PEEK(6754) 
350 IF I>=128 THEN 1=1-128 

354 IF 1=127 THEN PRINTCHR$ (08) +CHR$ (32) +CHR$ (08) : : GQT0290 

356 IF 1=26 THEN PRINTCHR$ ( 13) ; CHR$ (111 liOf® 

357 IF 1=11 THEN LN=LN-1 :G0T0365 

358 IF 1=10 THEN GOSUB 250sS0T03i? 

359 IF 1=13 THEN 362 

360 IN$=IN$4-CHR$(I) :GOTO 340 
362 PRINT: IF LEN(IN$)=0 THEN IN$=" " 
364 RETURN 
3G5 IF LN<0 THEN LN=0 

366 PRINTCHR$(26)+B$(P. LN) -f-CHR$ ( 1 1) :G0T0330 

367 F0RX=OT0 800:NEXT:PRINTCHR$ (26) +B$ (P, LN)+CHR$(11) :G0T0330 

370 PRINT: REM *********** EPIBLEEM-SR ********************** 

371 PRINT" 

372 PRINT" ## ##• 

373 PRINT" ## 

374 PRINT" ## 

375 PRINT" ## 

376 PRINT" ## 

377 PRINT" ## 

378 PRINT" ## 

379 PRINT" ## #;^" 

380 PRI NT" ##################################################### " 

381 PRINT" ## By Alfons Van de Meutter B'^3150 BOOISCHOT ##" 

382 PRINT" 

383 PRINT: RETURN 

390 IN$="" :F0RX=1 TO 63 

392 I N$= I N$+ " - " : NE XT : B$ ( P, LN ) = I N$ : P R I NT : P R I NT I N$ : GOSUB 250 : RETURN 
4O0 PRINTCHR$(19) :GOSiJB 240 : PRINT"*** I W ¥ Q E R mm^ • 
405 PRINT"=======================" : PRINT 

410 PRINT"DftTUM : idao lYtaand laar > "_: GOSUB 330 

420 D$=IN$:PRINT"REF :" "::GOSUB 330:RF$=lN$ 

430 P=l :lN=0: IN$=RF$:GOSUB260 

440 LT=L£N(RF$)+lEN(D$)+2 

450 F0RX=0 TO (63-lT) 

460 IN$=IN$+CHR$(32) :NEXT 

470 IN$=IN$+D$ 

480 B$(P,LN)= IN*: GOSUB 250 : G0SUB260 : GQSUB260 

500 PRINT" Kies noofdina :" 

501 PRINT" 1= vriie keuze : 2=ftan/Vanweae/Bet ref t : 3=De 6502 Kenner" 

502 PRINT"4= XXXX XXXXX-VERENIGING/ ..: " 

510 G£TX$:X=Vf::^L(X$) :PRINT:0NX GOTO 530,700,820,880 
515 POKE 22,0:F0RXC=0 TO 100: NEXT 

520 PRINTCHR$(13) ;"Niet oeldia ,...kies 1 tot 4 : ":CHR$(08): 

522 60T0510 

530 PRINT: REM VRIJE KEUS 

540 GOSUB 330:B$(P,LN)=IN$ 

550 IF LEFT$(IN$, 1)="\" THEN 570 

560 GOSUB 250: GOTO 540 

570 PRINT: PRINT" Kies een slot f oriYiule. . ":GOSUB 260 

580 PRINT"1= Hooaachtend ; 2» Met Breeten ; 3= Het Bestuur 

590 PRINT"4=De Voorzitter, De Secretaris, ;5=vriie keuze" 

6O0 GETX$:X=VAL(X$) :PRINT:ON X GOTO 620,660.670.680,630 

605 PRINTCHR$(11) !". .Onaeldia ...kies 1 tot 5 s ": CHR$ (08) ; :GQTQ600 

610 GOSUB 260: GOTO 630^ 

620 B$(P, LN)=" Hooaachtend . 

625 PRINTB$(P,LN) :GOSUB 250 

630 G0SUB260 : G0SUB260 • ' > 

640 PRI NT: PRINT: PRINT 

645 GOSUB 260: GOSUB 260:B$ (P, LN) ="\\" :GOTO 80 

660 B*(P,LN)=" Utt li^ueten , 

665 GOTO 625 

670 B$(P,LN)=" H#t a^BiiF , 

675 GOTO 625 

680 B$(P, LN)="De Vodrzitter, Dm Stcrdtar i^. •* 

685 G0TO625 

7O0 PRINT: REM ftPN/VftNWEGE/BETREFT m^-m,.*,.*^^^ 

710 B$(P,LN)="Aan : " :B$(P, (LN+1) )="— — * 
720 PRINTB$(P,LN) ; :80SUB 330s60SiiB 280 
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730 PRINTB$(P.LN) : :GOSUB 330SG0SUB 280 

735 GOSJB 270:'.PRINTB$(P,LN) ::G0SUB330sG0SUB280:BQSUB260 

740 PRINT:B$(P, LN)="Vanweae : " : B$ (P, (LN+1 ) ) =" " 

750 PRINTB$(P,LN) ; :GOSUB330:GOSUB 230 
760 PRINTB$(P, LN) ; : sGOSUB 330:GGSUB 280 

765 GOSUB 270::PRINTB$IP,LN) ::GOSUB 330:e^l»2!80«SOmjKil^IpWffl# 
770 B$(P,LN)="Bet reft : " zBi(P, (LN+l) — 
730 PRINTB$(P,LN) : :GOSUB 330s60SUB280 

790 PRINTB$(P,LN) : :60SUB 330:60SUB 280 :PRll^T8 GOSUB 260 
eOO B0SUB390:PRInTB$(P,LN) SG0SUB2608PRINT 
810 B0T0530:REivt VRIJE KEUZE VERDER 
820 B$ ( P, LN) =CHR$ ( 14) +" De 6502 Kenmr . " 

830 PRINTB$(P, LN) :GOSUB 250 

840 B$ (P, LN) =CHR$ ( 14) +" --^^^-^--^^'^mMiffm^^'^iM 

845 GOSUB 250:PRINTB$(P, LN) 
850 PRINT: PRINT: GOSUB 260: GOSUB 260 

860 B$(P,LN)="ftuteur : " sB$ (P, (LN+l) ) ^ 

870 GOTC750:R£M continue ' orint auteur ft bet reft * 
880 REM VERENIGINGS -EMBLEEM 

890 B$ ( P, LN ) =CHR$ (1 4 ) + " I 1 " 

9O0 PRINTB$(P,LN) :GOSUB 250 

910 B$(P,LN)=CHR$(14)+"I XXXXXXXX XXXXXXX I* 

920 PRINTB$(P,LN) :GOSUB 250 

930 B$(P,LN)=CHR$(14)+"I YYYYYYYYYYYYYYYY 
940 PRINTB$(P, LN) :GOSUB 250 

950 B$(P, LN)=C:hR$(14)-i-" t • 

960 PRINTB$(P,LN) :GOSUB 250:G0SUB 260:G0SUB260sPRINTsPRIf\T 
970 GOSUB 330: IF L£FTt*.ii».4 THEN 60SUB 260 s GOTO 1000 
930 GOSUB 280:GDT0970 
lOOO G0SUB390:60SUB260: PRINT 

1010 B$(P, LN)="ftanwezia :PRINTB$(P, LN) : GOSUB 25# 

1020 PRINT. : :GOSUB270:GOSUB330 

1O30 IF LEFT$(IN$, 1)="\" THEN GOSuB 260sG0T0105O 
1040 GOSUB 280: GOTO 1020 

1050 B$(P. LN)="ftfwe2ic : " : PRINTB$ <P, LN) :GOSUB 250 
1060 PRINT. :: GOSUB 270: GOSUB 330 
1O70 IF LEFT$(IN$. 1)="\" THEN GOSUB 260:GOT01090 
1080 GOSUB 280: GOTO 1060 

1O90 B$(P, LN)="Aaenca : "iPilMTSf (P. LN) :GOSUB 250 
1095 PRINT :G0T0530: REM VRIJE imUL 

1100 PRINT:REM CORRECTIg— ^ 

1110 PRINT,"*** C £} a i 1 G T t#*"2PRINT 
1115 PRINT: PRINT 

1120 PRINT^'fto §w^m en reaelnr ^ i^erdt die regei fttDOnd" 

1121 PRINT" tife tm I > niet wiizigen ^ voig. regel toni^ 

1122 PRINT" < niet wiiziaen + vorige regel tgnen " 

1123 PRINT" / vrwijder regel +schaif oo"tot lege/eind og. " 

1124 PRINT" & voor niewe ingave oaq/regelnr" 

1125 PRINT" ! voor eince correct le+terua monitor." 

1126 PRINTsPRINT:PRINT:PRINT 

1140 PRINT"Geef Biz , lim « **reH«f (08) :CHRf tOi> :CHR$ (08) : 

1 141 PRI^TCMiiCe*) :C^^R*(08) :QHR$ (08) :CHR$(08) : : INPUT P. LN 

1150 IF Pmm »*10 THENPRlNTCHR*(li)-i'"Slecnte biz. . " : :GOT01140 

1160 IFLN>«65 THEN PRINTCHR$ ( lii.#^''Te *l#te limnr. •^i^^filW^t ' 

1170 IFLN<0 THEN LN=64:P=P-1 

1172 IFP=0 OR P>=10 THEN 80 

1175 PRINTCHR$(11) :LN:B$(P, LN) :GOSUB 330^ 

1180 IFIN$=">" THEN GOSUB 250: : GOTO 1170: 

1190 IF IN$="<" THEN LN=LN-1 :60T01 170 

1210 IF IN$="§" THEN 1140 

1220 IF IN$=" ! " THEN 80 

1230 IF IN$="/" THEN 1250 

1240 B$(P, LN)=:IN$:PRINTCHR$(11) :LN:B^<P,LN) :G0SUB25OJPRINT:G0T0ll70 

1250 NR=LN 

1260 GOSUB 1 300 :RE,'^ Check NXTLN=SPC of leeo 
1270 IF CH=1 THEN B$ (P, NR) =HB$s NR=NR+1 :S0t01290 
1280 B$(P, NR)=B*(P, (NR+1) ) :G0T01170 
1290 IF NR=&5 THIN SQTO 1170 
1295 GOTO 1260 

130O HB$=B$(P. (NR+1) ) :LB=LEN(HB$) : IFLB=0 THEN CH=0:R£TURN 

1310 FOR X=0 TO LB:IF NOT MID$ (HB$, X, (X-»-l ) ) «CHR$ (32) THEN eW«lfR£TURN 

1320 NEXT XX8CH=0sRETURN 
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Sf^Ei IS O lE! 



i-<e:imimer 



1400 PRINTCHR$(19) :REM ONLY VIDEO 

1410 PRINT/'*** TOON :PRINT/'====«»ss?sspw«««*»a»s" SPRINT 

1420 INPUT^'Uw scheriYileesti Id ? •Csec> : ":LT 

1430 INPUT"ftl de tekst •{A>"of deel {D>:"!A$ * 

1440 IFn$="ft" OR ft$="a" THEN P=l :LN=0:PM=0:||PO:i,^0 

1445 IFft$="D" OR ft$="d" THEN PM=1 :SQT01460 • . 

1450 PRINTCHR$(11)+" Onaeldia. . . " : SiOTO 1430 

1460 PRINT-Geef ;4yimi^* » : , . % 

1461 PRINTCHR$(0«li^«»liif tlf«i^«^ :CHf»(OS) * 

1462 INPUT P,LN 

1470 IF P=0 OR P>=10 THEN PRINTCHR$ ( 1 1 ) +" Onaeldia bladnr . " : :G0TC14G0 

1475 IF LN <0 OR LN > =65 THEN PRINTCHR$(ii) +»Onaeldia 1 i innr, . " • :SOTQ 1460 

1478 GOTO 1500 * * 

1480 REM LEESTIJD IN SEC. 

1490 FOR X=0 TO LT STEP . 001S8NEXT8RETU« 

1500 GOSUB 240 

1510 FOR VI=LN TO 64 

1520 PRINTB$(P,VI) 

1530 IF LEFT$(B$(P, VI),2)="\\" THEN GOSUB 1490:G0T0S0 

1540 IF VI=13 OR VI= 27 OR VI=41 OR VI=55 THEN 60SUB 1490 

1550 NEXT VI 

1555 IF PM=1 THEN 80 

1560 FOR XX=0 TO 3 : PRINT : NEXT : PRINT". #ina# bUd « "/««SflSyt 1490 

1570 VI=0:P=P+1 : IF P>=10 THEN 80 

1580 GOSUB 240 

1590 FOR VI=0 TO 64: GOTO 1520 

1600 PRINT: PRINT: REM PRINTER ROUTINE HftRDCOPY 

1610 PRINT,"*** PRINT ♦**'': PRINT, ''====m=====«»»s=«^^ 

1620 PRINT:PRINT"Zet de orinter PAN , en zora voor oaDier ! " 

1621 PRINT" Indien klaar , druK een toets oo'klavier 

1622 PRINT" ( MOET ON=LINE MODE STftAN ''I )" 

1623 GET X$:PRINTCHR$(17) :REM SOFT~ON S^ilTCH 

1624 PRINTCHR$(27)+"M"+CHR$(16)+CHR$(13) : :REM MARGE 

1625 PRINTCHR$(27)+"CH"+CHR$(13)+CHR$(27)+"7"+CHR$(08)+CHR$(13) : : REM LN/P+K/ 

1626 PRINTCHR$(19) +"De printer is nu aef or/riatteerd , Wens le het sc^hrift " 

1627 PRINT"aewoon{l> ,vet-C2> , cubDeH3> of vtt'^(3u|}DeH4>'' : **• 

1628 PR I N1TCHR$ ( 08 )+CHR$( 08 )+CHR$( 08 )+(Ml* (Oi^ ;"r t^^^ D 

1629 ON D GOTO 1640,1650,1660,1670 

1630 PRINTCHR$(il)+"???. . ": :G0T01627 

1 640 PR I NTCHR$ ( 1 7 ) +CH R$ ( 27 ) + " F " +CHR$ ( 27 ) + " H " : : GOTO 1 680 

1 650 P R I NTCH R$ (1 7 ) +CH R$ ( 27 )+" F " +CH R$ ( 27 )+" G ":: GOTO 1 680 

1660 PRINTCHR$ (17) +CHR$ (27) +"H"+CHR$ (27) +"E" : :S0T016a0 

1670 PRINTCHR$(17)-+-CHR$(27)+"E"+CHR$(27) +"G*' - 

1680 PRINTCHR$ (13) +CHR$( 19) +CHR$ (11 )+CHR$ (11) : 

1700 INPUT"Aantal cooiien ? : ":C0 

1702 PRINT"een Form-Feecl ilocal-mm Urm^mrm mmn mtllmkmurimB" 

1704 PRINT" toets om orlntout t« «t»Pt#fi .*»ilto(17) ^ 

1720 P=l:GET X$ - 

1730 FOR LP= 0 TO 64 : HP$=B$ (P, LP) 

1740 IF LEFT$(HP$,2)="\\" THEN GOTO 1780 

1750 PRINTHP$:IF LP=32 OR LP=64 THEN GOSUB 1790 

1760 NEXTLP:P=P+l:IF P)=100 THEN PRINTCHR$ ( 19) : GOTOBO 

1770 GOTO 1730 

1780 CO=CO-l:IF C0<=0 THENPRINTCHR$ ( 19) : G0T080 

1782 P=1:LN=0:XX=USR(F 1B7C) : GOTO 1730 

1790 F0RXX=0T02000STEP.05:NEXT: RETURN: REM EXTR W'r PRINTER BUFF 

1800 REM BEWAAR 

1801 PRINTCHR$(19) "*** BEWAAR ***•': PRINT, 

1802 PRINT"Zet od cass. File 01-- 007A tot 0086 via PM" 

1803 PRINT"Zet dan File 02 vanaf (007A/007B) tot ( 0084/0085) ¥l« PM« » 

1804 PRINT"LET WEL le kan alleen terualaden als hoof dDtmrmHiA^ 

1805 PRINT" niet gewiiziqd werd!!, anders klonotn de OQi«*»f* n4»t. 

1808 X»USR(H 105P):REm JUMP TO pfe-«ONITGR IW ItINT "JtPilP 

1809 REM JUMP TO PM-MONITOR 

2O0O PRINTCHR$(19) :REM LADEN -DISAB. PRINT. 

2010 PRINT" VoorloDia laden file 01 = oointers ,02=data via PM" 

2020 PRINT"Dointers=007A tot0086 //data= (007A/7B) tot (0084/85) . " 

2030 X=USR(H 105F):REM JUMP TO PM-MONITOR AND PRINT "JUNIOR" 
2040 

2060 REM DAAA6, THE FONZ. . 
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E^E Ei D S 



DATASV 



PABE 01 



0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
GO go 
0100 
Olio 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
O20O 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0230 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 



70 1ft 
72 1h 
79 lA 



00 00 
50 00 
7D 00 
81 00 
S3 00 
37 00 
D3 00 

m 00 



£8 11 
34 13 



DF 09 
02 OS 



DATA SAVER *** 

Onlanas schafte ik jYiij via de Paoerware Service van 
de redaktie van DE 6502 KENNER de Data Saver van 
John M. Blalock aan, waarmee ik eniae tijd aoed heD 
kunnen werken, Echter^ deze heeft ook zijn Beoerkiyia- 
en. De grootste vond xk wel dat, indien er met een 
beoaald Basic-orograiwma een hoeyi^e4f^y| ##ta ae' saved' 
werd en deze later weer nodia V4^^'^ od de oor- 

soronkelijke olaats in het geheugen werd aezet. Dxt nu 
is een groot orobleem als het oorsoronKei i ike Basic- 
orooramma ook maar eniae wi iziaim heeft onderaaan. 
Ook kan net oebeuren dat de dafa rsmr meerdere'oroaram- 
ma's aebrulKt moet wordtn* Hleff»p# fmat de Data Saver . 
van Blalock ook de lYnst fit.. • 

Ik heb nu deze Data Saver zover aanaeoast, dat hi i de 
data aiti jd direkt acnter ^^et Basic-^oroaraiYima zet,' cus 
daar waar de data tf-uiis hoort. I*len kan iviet onderstaandl 
orograiYiffia de data ' saven' en deze data ook voor andefiJ 
orogramma*! pebr^iken of het oorsoronkeli jke Basics . 
0 r 00 raa«ia if Ifl. 

DATAS¥ ORB fBlOO 

B¥: J. ft. DEKKER 

BAKKERSTRftftT 93 
1325 CP AlKMAAR 
jm NETHERLANDS 
Pmmt 072 - 621970 

THIS P^^OGRAM 'DATA ShVE^' IS A MODIFIED VERSION OF 
THE 'DftTft SftVE.^' l^RITT£N BY JOHN y\. BLALOCK. THIS 
MODIFIED PROG.RAi^ OFFERS YOU THE ADVANTAGE TO CHANGE 
YOUR ORIGINA:. EHS:C-='RC6,^ft:^. DATA WILL BE SAVED JUST 
AFTER YOUR BASI C-PRDG ^ft.^. 1*^ IS P\L.SO POSSIBLE TO 
PICK UP AGAIN DATA TO USE I 1\ OTH^ BAi IQ-P^iftftS, 

SA * $iA70 : STARTADDRESS / 

Eft * $1A72 : E.^>IDADDRES3 

ID * $1A79 ; IDENTIFIjajIflN NUfSEEH - ^ .. 

zero Dage locations 

NUL 

BUFFER 
POINT 
DE 
SS 
SE 
NXL 
TMP 

PW-monitof routinely 

CRLF # $ilE3 : Pmkf CARRIAGE RETURN & LINEFEED 
PRCHA * $1334 ; TftflNSMIT AN ASCII-CHAR TO SCREEN 
: (see also edition 26, o^lS'-lS. Way ifflS ) 
RESTTY * $14BC ; ' " 

TM~monitor routines 



♦ 


$0000 








$0050 








$007D 








$0081 




Dh"!"h E:\D 


♦ 


$0083 




S-:R:ni6 STflRTADDRESS 




$0087 




STR:m6 ENDfiDDRESS 








UEXT LINE POINTER 






"•1 





DUMP ♦ 



♦09DF 



30 



DflTftSV PflSE 02 



0650 2 


BlOO 


20 


DF 


Bl 


SAVE 


JSR 


SAVER 


: SftVE ftL.L REGISTERS 


0660 : 


B103 


ft9 


00 






LDAIM 


*00 


: CL-EftR ACCUM 


0670 : 


B165 


8D 


71 


1ft 




STft 


SA 


+01 : 


0680 : 


BIOS 


8D 


73 


1ft 




STA 


EA 


+01 : 


0690 ' 


BlOB 


flS 


65 








^es 


: WILL STftRT ftT t0§65 


0700 : 


BIOD 


8D 


70 


1ft 




STA 


SA 


: ftND RECORD 


0710 : 


BllO 


ft9 


Eft 






LDAIM 


«£A 


• ftLL POINTERS, ETC. 


0720 : 


B112 


8D 


72 


1ft 




STA 


EA 


: THRU $OOEft 


0730 : 


Bil5 


20 


DF 


09 




JSR 


DUMP 


: SftVE I"!', MODE PftSSED IIM Y 


0740 : 


BUS 


20 


D9 


Bl 




JSR 


ASTRIX 


! SEND ftSTERIX TO TERMINAL 


0750 : 


BllB 


EE 


79 


1ft 




INC 


ID 


• INCREMENT ID 


0760 : 


BllE 


ft5 


83 






IM 


SS 


: AND SAVE THE S "BRINGS 


0770 : 


B120 


8D 


70 


lA 




STA 


SA 




0780 : 


B123 


ftS 


84 






LDA 


SS 


+01 : 


0790 : 


B125 


8D 


71 


1ft 




STA 


SA 


+01 : 


0800 : 


B123 


ft5 


87 






LDfl 


S£ 


■ 


0810: 


B12ft 


8D 


72 


lA 




STft 


Eft 


• 


0820 : 


B12D 


P5 


88 






LDft 


SE 


+01 : 


0830 : 


B12F 


8D 


73 


1ft 




STA 


Eft 


+01 : 


0840 : 


B132 


20 


DF 


09 




JSR 


DUMP 


: SftVE IT 


0850 : 


B135 


20 


D9 


Bl 




JSR 


ftSTRIX 


• PRINT ftNOTHER ASTER IX 


0860 : 


B138 


EE 


79 


1ft 




I;MC 


ID 


: INCREMENT ID 


0870 : 


B 13B 


P5 


7D 






LDft 


POINT 


: AND SAyg Tm DATA 


0880 : 


B13D 


8D 


70 


1ft 




STft 


Sft 




0890 : 


B140 


P5 


7£ 






LDft 


i^'OINT 


+01 : 


0900 I 


B142 


SD 


71 


1ft 




STft 


Sft 


+01 : 


0910 : 


BJ45 


ft5 


81 






LDft 


DE 


• 


0920 1 


B147 


8D 


72 


1ft 




STft 


Eft 


• 


0930 : 


B14ft 


P5 


82 






LDft 


DE 


+01 : 


0940 ' 


B14C 


8D 


73 


1ft 




STft 


Eft 


+01 : 

• SAVE IT 


0950 ! 


B14F 


20 


DF 


09 




JSR 


DUMP 


0960 ' 


• B152 


20 


BC 


14 




JSR 


RESTTY 


• 

t 


0970 


• B155 


4C 


BB 


Bi 




Jjip 




9 

n 


0980 


















0990 


: B158 


20 


DF 


Bl 


LOAD 


JSR 


SftVEi 


► SAVE ftLL REGISTERS 


1 GOO 


: B15B 


fiS 


D3 






LDft 


NXL 


; SftVE NEXT LINE POINTER 


10 10 


: B15D 


85 


EE 






STft 


TMP 


: IN ft SPftRE LOCATION 

+01 : THftT WON'T BE ALTERED 


1 020 


: B15F 


P5 


D4 






LDft 


NXL 


1030 


: B161 


85 


EF 






STft 


TMP 


+01 ! WIL^ NEED TO CCNTINUE- 


1040 


: B163 


flS 


7D 






LDft 


POINT 


: PARK POINTER 


1 050 


: B165 


85 


50 






STft 


BUF-ER 


- 


1 060 


I B167 


A5 


7E 






LDft 


POINT 


+01 : 


1 070 


: B163 


85 


51 






STft 


BUFFER 


+01 : 


1 080 


: B16B 


20 


02 


OB 




JSR 


RDTftPE 


; FETCH PAGE 0 


1 090 


: B16E 


20 


D9 


Bl 




JSR 


ftSTRIX 


« 


1 100 


I B171 


EE 


79 


1ft 




INC 


ID 


: INCREMENT ID 


1 110 


: B174 


20 


02 


OB 




JSR 


RDThPE 


; FETCH STRINGS 


1120 


: Bi77 


20 


D9 


Bl 




JSR 


ftSTRIX 


; SEND ftSTERIX TC TERMINA^ 


1130 


: B17ft 


09 


FF 






LDft I M 


$FF 


: FETCH DftTft 


1140 


: B17C 


8D 


79 


1ft 




STft 


ID 


• AND EVENTUALLY PUT THEM 


1150 


: B17F 




50 






LDft 


BUFFER 


i m » mi Pism 


1 160 


: B181 


8D 


70 


1ft 




STft 


Sft 


m 


1170 


: B184 


ftS 


51 






LDft 


BUFFER 


+01 : 


1 180 


: B186 


8D 


71 


1ft 




STft 


Sft 


+01 ; 


1 190 


: B1S9 


20 


02 


OB 




JSR 


RDTftPE 


•r 


1200 


: B18C 


20 


BC 


14 




JSR 


RESTTY 


■ 


1210 


: B18F 


38 








SEC 




■ CCWPUTE POSTPONeMENT 


1220 


: B190 


A5 


50 






LDA 


BUFFER 




1230 


: B192 


E5 


7D 






SBC 


POINT 




1240 


: B194 


85 


52 






STA 


BUFFER 


+02 ; 


1250 


: B196 


ft5 


51 






LDft 


BUFFER 


+01 : 


1260 


: B198 


E5 


7E 






SBC 


POINT 


+01 : 


1270 


: B19fi 


85 


53 






STft 


BUFFER 


+03 : 


1280 


: B19C 


ft5 


50 






LDA 


BUFFER 


; ADJUST STftRT OF VftRIflBLES 
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sj^Ei S D iS 



KEIMMER 



DATflSV 



PABE 03 



1 290 s 
1 300 : 
1310 s 
i 320 : 
1 330 : 
1340: 
1 350 : 
1360: 
1370: 
1 380 : 
1 390 : 
1400 = 
1410: 
1 420 : 
1 430 : 
1 440 : 
1 450 : 
1 460 s 
1 470 : 
1 480 s 
1 490 : 
1 500 : 
1510: 
1 520 : 
1 530 : 
1 540 : 
1 550 : 
1 560 : 
1 570 : 
1 580 : 
1 590 : 
1 600 s 
1610: 
1 620 : 
1 630 : 
1 640 : 
1650: 
1660: 
1670: 
1 680 : 
1 690 : 
1 700 : 
17i0: 
1720: 
1730: 
1 740 : 
1 750 : 
1 760 : 
1770: 
1 780 : 
1790: 
1 800 : 
IBIO: 
1020: 
1 830 : 
1840: 
1 850 : 
1 860 : 
1 870 : 
1880: 
1890: 
1900: 
1910: 



B19E 
BlflO 
Blfl2 
Blfi4 
Blflb 
Blft9 
BlAB 
BlftE 
BIBO 
B1B3 
B1B5 
B1B7 
B1B9 
BIBB 
BIBD 
BICO 
B1C3 
B1C4 
B1C5 
B1C6 
B1C7 
B1C8 
B1C9 
BICA 
BiCB 
BICD 
BICF 
BlDl 
B1D2 
B1D4 
B1D6 
P1D8 



BIDF 08 
BlEO 48 
BlEl 48 
B1E2 
B1E3 
BiE4 48 
B1E5 8fl 
B1E6 48 
B1E7 BA 
B1E8 BD 
BIEB 9D 
BIEE BD 
BlFl 9D 
B1F4 BD 
B1F7 9D 
BlFPl BD 
BIFD 9D 
B200 BD 
B203 9D 
B206 98 
B207 9D 
B20ft 68 
B20B m 
B20C 68 
B20D 28 
B20E 60 



85 


7D 










ft5 


51 




LDft 


BUFFER 


+ 01 ! 


85 


7E 




STft 


POINT 


+01 : 


P2 


7F 




lDXIM 


$7F 


: ADJUST START OF ARRAYS 


20 


Cft 


Bl 


JSR 


VERPL 


■ 


ft2 


81 




LDXII^ 


$81 


: ADJUST END OF ARRAYS 


20 


Cft 


Bl 


JSR 


VERPL 


• 


ft2 


99 




LDXlr^ 


$99 


• 


20 


CP 


Bl 


JSR 


VERPL 




A5 


EE 




LDA 


TMP 


• 


85 


D3 




STfl 


NXL 


I 


ft5 


EF 




LDft 


TMP 


+01 : 


85 


D4 

On 




SIP 


NXL 


+01 : 


ft9 




END LDPIf^ 


$00 


: ADJUST RETURN ON 


20 


34 


13 


JSR 


PRCHA 


; TERMINAL 


20 


EQ 


11 


JSR 


CRLF 


; (NOT ALWAYS NESDCD) 


68 






PLft 




• 


P8 






TftY 




■ 


68 






PLP 






ftft 






TftX 






68 






PL A 




• 


28 






PLP 




• 


60 






RTS 




• 


1 o 












B5 


00 




LDflftX 


NUL 




65 


52 




PiDC 


BUFFER 


+02 : 


95 


00 




STftflX 


NUL 




£8 






IlMX 






B5 


00 




LDftfiX 


NUL 




65 


53 




ADC 


BUFFER 


+03 • 


95 


00 




STftftX 


NUL 




BO 






RTS 




m 1 


fig 


2« 




fiSTRIX LDAI!^ 


$2PI 


: ASCII flSTERIX | 


20 


34 


13 


JSR 


PRCHA 


: SEND TO TERMINAL ' 


60 


SITS 




; ftNO m^um 1 



SAVER 



48 

08 



09 01 

05 01 
07 01 
09 01 
01 01 

07 01 

08 01 
04 01 

06 01 

oa 01 

06 01 



PHP 

PHA 

PHA 

PHA 

PHP 

PHA 

TXA 

PHA 

TSX 

L.DAftX 

STAAX 

lDAAX 

STAAX 

LDAAX 

STAAX 

LDAAX 

STAAX 

LDAAX 

STAAX 

TYA 

STAAX 

PLA 

TAX 

PLA 

PLP 

RTS 



$0109 
$0105 
$0107 
$0109 
$0101 
$0107 
$0108 
$0104 
$0106 
$0108 

♦0106 



BRIEF m DE REMKTIE. 

Bert Klein 
DiedenMeo 119 

USURPflTOR. het schaakoroGraft- 
Aa waarover eniae oatches 
verschenen t.b.v. het werken 
OD de JUNIOR-coiouter, heeft 
noa een aanoassino nodio. Oe 
oriainele versie aebruikt 
het'oebied van adres $1400 
tot $1690 als buffer voor od- 
slao van allerlei tussenstan- 
den'tiidens het denken. USUR- 
PflTOR zet daarvoor een Doin- 
ter in de adressen $D5, $D6. 
Dat oebeurt tiidens de oo- 
startroutine die beoint oo 
adres $3121. $D5 en $D6 wor- 
den dan tet $00 en $14 aela- 
den. Echter... bii de JUNIOR 
is dat aeheuaendeel door de 
PM Eoroi bezet (!) en USURPft- 
TOR orobeert dan driftiq oa 
daar allerlei data in te 
schriiven. Dat kan natuurlvk 
niet en volqens tij kan de 
versie ftet de aeoubliceerde 
oatches zo noo niet goed wer- 
ken. De reiedie is overiqens 
eenvoudio! vervano de in- 
struktie'LDX #$14 oo adres 
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5 O iP> 



0010: 000(1 
0020: 
0030: 
0040: 

OOSO: UHMEIDIIfi OP DE SVN-i BftSIC VOOR KIN-1 EN JUNIOR 

0060s 

0070: TRftSf « E N 11X111 §11 P 

0080: 

0090: iiiiLIJKHEIS 
OlOO: 

0110: WWMWIiitiittMIBWiitlW i tMWllllItt^ 
0120: 

0130: flUIEUR: F.J.N. SHEEHUIJZEN 

0140: LIPPEDflL 19 

OlSO: 2904 CL CAPELLE flflN DEN IJSSEL 

0160: Ta. 010-512507 

0170: 

0180: DE TRflCE-NODE IS EEN HflNDIGE T0EV0E6IN6 MN DE BflSIC. 

01901 HIERiCE UORDT lEDER REGELMMBI Ml yORDI UIISMERD 

O20O: OP HET SCHERM RF6EDRUKT. 

0210: DIT IS HflNDIG ON BIJVOORBEELO IN EEN PROGRAWfl DAT IN 

0220: EEN LOOP RflAKT TE ONDERZOEKEN UflfiR DAT PRECIES 6EBEURT. 



»S DE SINGLE STEP NODE IS HflNDIG ON REBEL VOOR RE6EL TE 

H LATEN UITVOEREN. 

„ »t HIERBIJ DIENT EEN UILLEKEURI6E TQETS TE UORDEN INGEDRUKT 

0270: mmm mmms m mm mm. mm mmismk 

0280: 

0290: DE TRflCE-NODE EN DE SINGLE SIEiNaiE lOIIBi SDK ffi.lJK- 

0300: TIJDI6 GEBRUIKT UORDEN. 

0310: 

0320: »ET flflNZETTEN VflN DE TRflCE-NODE GEBEURT DOOR HET ZETTEN 

0330: m IE mk THRCE-fLAB (I17E0) CT BQILP VflN N^ il«l»O0: 

0340: 
0350: 
0360: 

0370: HET flflNZETTEN VflN DE SINGLE STEP-NODE GEBEURT DOOR HET 

0380: ZETTEN VflN DE ZGN. STEP-FLAG ($17E1) NET BEHULP VAN HET 

0390: mmmi 

0400: 

0410: mm m 

0420: 

0430: DE BEIDE 'FLAGS" UORDEN UEER 6ERESET DOOR HET MTCETSEN 

0440: VAN DE 'RUB-OUT' OF 'DELETE'- TOETS. 

0450: (ZIE VOOR BEIDE KONNANDO'S DE BESCHRIJVING VAN HET TtEVOIBQI 

0460: VAN NIEUUE KONNANDO'S IN 6502-KENICR NR. 29) 

0470: 

0480: IN DE SYH-1 BASIC DIENT DE VOLGENDE flANPASSING PLAATS TE VINDEN: 

0490: 

0600: OP AORES «CSD1 HOET JSR $O0CC GENIJZI6D UORDEN IN JSR $9155 

0510: 

0520: 93F6 TRflCE ORG i93F6 

0530: 

0540: nnm i miiinnmimmiminmimiiiiiiiii 

09S0: 

eSEO! ROUTIIC ON DE TRACE-FLAG TE ZETTEN NADAT HET tTRACE 

0570: NNiMIO l§ INBETIETST. 

0580: 

0590: iitiiiiitiiti t w t WffMiiiiiititititiM 

0600: 

0610: 93F6 fl9 FF LDflIN IFF ; ZET DE TRACE- 

0620: 93Fa 8D EO 17 STA TRFLA6 ; VLA6 AAN EN 

0630: 93FB 4C TE C2 JNP HMM ; TERUB NflAR BASIC 

0640: 
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fiSI^ ASSQtLER V3.1 



MGE02 



S1EP 0R8 19^ 

illitWltMtlIlltllllttMi|tl|itlIlllt»ltjBM j il^ 

ROUTINE OM DE STEP-FLflS TE'lPHIlWril^liiiP" 
KOiWIDO IS IH^OETST. 



94B2 ftg FF 
94B4 8D El 17 
94B7 4C 7E C2 

9155 



LDflIM $FF 
STfl STFLflG 
JMP UflRM 

TR/SST ORG $9155 



JLJLJLJL&JLMJLJLJLJLJLJLJI 
ItTTTTXXTTTTXTIt 

ZET DE STEP- 
VLAG m 

EN TERUe Vm BASIC 



JUULXXXJUULJLJULXJiJtJUUUUtJUUUiJt 

wirirT»TitT*TTirTTTinmrT»TrTT» 

ROUTINE OM DE TRACE EN/OF STEP FUNKTIE UIT TE VOEREN 

ltWlf«l»«Wir«l»M«»«l»1I1t««MMMM 

TXTTTT^TTTTrTTXirXTTXTTTrTC 



0860. 


9155 


UARM 


« 


$C27E 




0870 


9155 


CRLF 


» 


$C8FE 




0880 


9155 


GETCH 


» 


$lESfl 




0890 


9155 


PRIAX 


* 


$DB8A 




0900 


9155 


GETNCH 




*OOCC 




0910 


9155 




* 


$ooaA 




0920 


. 9155 


imm 


« 


ims 




0930 


: 9155 


ENDSTP 


« 


IC627 




0940 


! 9155 


TRFLA6 


• 


$17E0 




0950 


; 9iS5 


STFLflB 


ff 






0960 










; RUN/DIRECT FLAG . 


0970 


I 9155 ft5 8A 


THCEl 


LDA 


Rim& 


0980 


! 9157 C9 FF 




CMPIM 


$FF 


; DIRECT MODE ? 


0990 


: 9159 FO IF 




BEQ 


DIRECT 


; DAN GEEN RKTIE 


1000 


! 915B AD EO 17 




LDA 


TRFUffi 


; TRACE-FLAG 


1010 


! 915E FO OA 




BEQ 


STEP 


; GEZET ? 


1020 


: 9160 A6 89 




LDX 


LINENM 


; REGELNUMMER IN A EN X 


1030 


: 9162 ft5 BA 




LDA 


LMNM 


+01 


1040 


i 9164 20 8A DB 




JSR 


PRIAX 


; EN PRINTEN 


1050 


; 9157 20 FE C8 




JSR 


CRLF 




1060 


: 916A AD El 17 


STEP 


LDA 


STFLAG 


; STEP-FLAG 


1070 


: 916D FO OB 




BEQ 


DIRECT 


; GEZET ? 


1080 


: 916F 20 5A IE 




JSR 


GETCH 


; MACHT OP EEN TYPE-IN 


1090 


: 9172 C9 IB 




CMPIM 


$1B 


; IS HET EEN iSCm t 


1100 


: 9174 DO 04 




BNE 


DIRECT 




1110 


: 9176 38 




SEC 




; 5T0PPEN EN NAAR 


1120 


: 9177 4C 27 C6 




JMP 


ENDSTP 


; END/STOP ROUTIIC 


1130 


: 917A 20 CC 










1140 


: 917D 60 












CPU board tet CMOS 6502 

De talenten van de oooulaire 
fiS02 B-bit Aicroorocessor 
zim veraroot in een 1-MHz 
CMte versie die het hart is 
van de DCPU-lOO, een sinqle- 
board cotouter van Dynatei. 
Het volledia tet CMOS bestuk 
te board - aold-label ftodel 
aenaatd - tfekt nax. 50 aA 
van een enkele 5V liin, Maar 
door het bruikbaar wordt in 
draaabare coAouter aoolica- 
ties of batterii oevoede svs 
teten. Het board is ook ver- 
kriiabaar in versies oenaaad 
'silver label' (Aet NliOS I/O 
devices) en 'bronze label' 
(voorzien van vriiwel alle- 
Aaal NMOS onderdelen, ^e- 
bruik Aakend van TTL liioich- 
level sionalen). 
Oe coAOuter koAt voorzien 
ym sockets voor 32K bytes 
oetoueevi (ROM of RAM), twee 
fl-bits oarallel ooorten, en 
een RS 232-C seriele ooort. 
De 32K bvte ruiete bestaat 
uit vier 28-Din sockets voor 
6264 tyue CMOS RAM's of 2764 
^MPi, welke kunnen worden 
oeforeeerd naar de behoeften 
van de oebruiker. Een van de 
vier sockets zal ook een 24- 
oin Rocimell lanauaae ROM ac 
ceoteren, Nelke het board 
dan voorziet van coAoilers 
voor FORTH en BASIC. De DCPU 
-100 kan in totaal 128K bvte 
externe RAM adresseren. De 
65C02 Aicroorocessor heeft 
een 64K bvte AaxiAale adres- 
ruiAte, Aaar de DCPU-lOO ver 
dubbelt dat door banksNitch- 
ina van het aeheuoen. 
Een 6522 (of 65C22 oo de 
oold label versie) contro- 
vert de 8-bits oarallel I/O 
liinen. Een 6551 (of 65C51) 
befiandelt de seriele over- 
dracht eiddels een RS-232-C 
verbindino, nelke de tofvoe- 
oino van een H2V soinninQ 
behoeft. 

Beschikbaar oo een 100 x 160 
AA Eurokaart foniaat Att een 
64-00 liae DIN connector is 
het board bedoeld oa in te 
oluoqen oo een RM-bus, het 
doof RockMell en andere coa- 
8uler£iiifik^mti»i «ebmkie 
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IPiS 



-rr- r\r-4 

ocHo 

-rr" 

3EftB 
3EftD 
3EfiF 

3EB4 
3EB7 
3EBa 
3EBC 
3EBF 

3EC4 
3ECB 
3ECS 
3ECB 
3ECD 
3ECF 
3ED1 
3ED2 
3ED3 
3ED& 
3ED7 
3E3^ 



131 



C3 «3i 
FB 
13 



^3 
FF 



PATCHES OP MICRD-ADE VOOR JUNIOR 



J. 

WAMBEEKSTRAAT 3B ^ 

B-38S8 STEENOKKERZEEL 

OMDAT IK BESCHIK OVER EEN JfiNDY PRINTER VII ^ 
WOO STUREN VANUIT M-A WAS HET NC3DIG VOLGENDE 
OP IN- EN OUTPUT ROUTINES WIT TE Wf^N 

DE PRINTER WORDT AANGESLDTEN DP DE 
TEN EINDE DE GRAFISCHE MOGELIJKHEDEN 



i. o 

xo 



SD 0B 18 
fi3 I3A 
3D i3C IS 
AD i3i3 IS 
23 02 
C3 02 
DB BE 
AD BB IS 
23 01 
C3 01 
FB F7 
&S 
48 

SD ai IS 
&S 

28 34 13 

m 




MET DE SCHAKELAAR 31 WORDT DE PRINTER AAN OF AFGEZET 
DIT MAG FLAATSVINDEN OP ELK WILLEKEURIG TIJSSflP 
AANPA33ING VAN DE OUTPUT ROUTINE 

PRTOUT ORG *3EA3 



ORA 
DDRB 
DDRA 
ACR 
PGR 



B3 IS 
0B IS 
0C IS 

34 13 PRCHAR * 



$1SBB 
$1SB1 
$1302 
*1SB3 
$1S0B 
$18BC 
$1334 



I/'O POORT B 



PRINT 


PHA 






CMPIM 


$0A 
PRSCH 




BEQ 




LDAIM 


$FF 




STA 


DDRA 




LDAIM 


$BB 




STA 


DDRB 
ACR 




STA 




LDAIM 


$BA 




O 1 M 


PCR 




LDA 


ORB 
$B2 




ANDIM 




CMPIM 


$B2 




BNE 


PRSCH 


BUSSY 


LDA 
ANDIM 


ORB 
$B1 




CMPIM 
BEO 


$B1 




BUSSY 




PLA 






PHA 






STA 

PLA 
JSR 
RT3 


ORA 


PRSCH 




PRCHAR 







I/O POORT A 
DATA RICHTING POORT § 

t« It n H 

AUXILARY CONTROL 

PER I PHIAL CONTROL 

PRINT ROUTINE VDOR SCHER« 

EEn'lINEFEED WORDT NIET NAAR DE PRINTER 
GESTUURD, <LF> AUTOMAT I SCH NA {CR> 
POORT A OUTPUT 



POORT B INPUT 
OISA^E LATCHES 

CA2 LOW PULSE ON WRITE 
IS DE PRINTER AAN 
ZONDER PBl AF 

PRINTER STAAT AF 

IS DE PRINTER AAN HET DRUKKEN 

ZONDER PB0 AF 



HAAL HET KARAKTER VAN DE STACK 

PRINT OP PRINTER 
PRINT OP SCHERM 



OMDAT MIJN TERMINAL <ELECTERMINAL)^IN HALF DUPLEX WER^^ 
MOET EEN KARAKTER DAT NA INPUT NAAR DE PRINTER GESTUURD 
WORDEN WIL DE TEKST DIE OP HET SCHERM STAAT ODK OP DE 
PRINTER GEDRUKT WORDEN 
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PRTOUT TANDY PRINTIR VII EN MICRO-ftDE 



P AGE 02 



1 3413 

1350 
13E0S 



AfiraPfiSSING VAN DE INPUT ROUTINE 



5FAA 



INCHftR + 



5FAA 20 fiE 12 PR INI 



JSR 



INCHftR INPUT KfiRftKTER 



INDIEN DE ROUTINE VANAF PRT UITGEVOERD WORDT, 
WORDT HET KARAKTER ALLEEN DP DE PRINTER AFDEDRUKT 



kJO^kJ ■ 


3FfiD 
3FfiF 


C3 


0A 




PRT 


CMPIM 


$0A 


/I r-\ hiTCT"'" Kirsr\r> mr-v t kit* r- 

\i-.r/ rMlc.1 iMMMh rrtiiMicrx 


rr%r\-rn, ■ 


r-rh 

r «j 








END 


<LF> GEBEURT AUTOMAT I SCH 


0840: 


3FB1 


48 








PHfi 




PRINT OF PRINTER 
POORT A OUTPUT 


nsr%cr fTi ■ 


3FB2 

1 rrr-ru i. 
• or b*4 


fi3 
SD 


I— r~ 

r r 






I r\r\ T iw4 
L-1Jm 1 II 


*FF 


0880: 


r*-r 

too 


IS 




O 1 H 


DDRft 




rhr-i-1 rh • 
kJO / <U ■ 


or r? / 


r\r\ 
MZ> 


rhrh 






LDfilM 


$00 
DDRB 




WJOOki • 


.->r Jb u 

-r rr r-iO 

or r>L/ 


r%r\ 
Ol/ 


02 
0B 


lO 




O 1 M 


FOORT B INPUT 
DISABLE LATCHES 


0830: 


SD 


4 r-k 

JLO 




STA 
L-jL/Hi n 


r\r^ rv 


0300: 
0310: 


• orx3r 


1-13 


0fi 






$0A 




or L-r 1 


SD 


0C 


IS 




O 1 M 


PCR 


CA2 LOW PULSE ON WRITE 


0320: 


-y r-r-t /. 
or 


fiD 


00 






LDft 


ur\cy 


IS DE PRINTER AAN 
ZONDER PBl AF 


rht^-r rh • 


or / 


23 


02 










0340: 
0350: 


. 3FC3 




02 






CMPIM 






3FCB 


D0 


0D 






BNE 


END 


PRINTER STAAT AF 


0380: 


or C-rL/ 


fiD 


00 


%B 




LDA 


ORB 


IS DE PRINTER AAN HET DRUKKEM 


nr.r-i-? r* • 


3FD0 


23 


01 








$01 
$01 


ZONDER PB0.AF 


0380: 


: 3FD2 


C3 


01 

r-.-i 

r ^ 






CMPIM 


0330: 


: 3FD4 
: 3FD& 


F0 






BED 


BUSSY 


'HAAL HET KARAKTER VAN DE 3t«^ 
ZEND HET NAAR DE PRINTER 


1000: 
1010: 


68 








PLA 




: 3FD7 


3D 


01 


IS 




STft 


ORA 


11320: 


: 3FDA 


60 






END 


RTS 







TENSLDTTE D3 



iN DE fffiRESSEN VAN IN- EN OUTPUT ROUTINES 



2EA0 

2Efil3 4C A3 3E 
3000 

300i m m w 



ORG *2Efi0 

JMP $3EA3 
INPUT ROUTINE 

ORG $3000 

JSR $3FfiA 
DIT PROGRAMMA LAAT TOE DE PRINTMDDE IN TE 
HET PROGRAMMA KAN GE3TART WDRDEN DOOR X200 
NA EEN KORREKTE KEUZE SPRINGT HET PROGRAMMA NAAR DE 
WARME START A«JM M-A. ' : 



MEN .m^^mm 



N NORMAAL PRINTEN 
E EXTENDED PRINTEN 
G GRAF28CHE MOI^ 



BIJ INVOER VAN EEN ONGELDIGE KEUZE, VERSCHIJNT "INPUT?" 
OP HET SCHERM. MEN KAN NU ALSNOG EEN CELDIGE KEUZE MAKEN. 

PRINTER CONTROL 



0200 



AD 
34 
RE 



PRTCTL ORG 



12 
20 



RECHAR *: 



$0200 
$3FAD 



520: 



PRINT OP SCHERM 
PRINT OP SCHERM 
INPUT VAN TOETSEN BDRD 
MICRO-ADE WARME START 



0200 A2 00 

0202 BD 47 82 
0205 C3 03 

0203 20 34 13 
020C ES 



START 
PHSB 



LDXIM $00 
LDAfiX MSG 
CMPIM 
BEQ 
JSR 
INX 



PRINT ALLE M8GELIJKE INSTRWIfl^ 

EINDE ? 
I NrUT iJ A 

PRINTS NEEr PRINT KARAKTER OP SCHERM 
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PRTCTL TftWDY PRINTER VII EN MICRO-ftDE 
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I32I3D AC 05 i32 

132112 213 AE 12 
13213 C3 A5 



1321b 
0217 



DO f3S 

as IF 

4C Dft 3F 



82 IC C9 
132 IE 013 (3S 
0220 fi3 IE 

0223 ^ M? 
0227 Di 08 
0223 03 12 
022B AC Dft 3F 

02 2E fi2 00 
0230 BD &0 m 
0233 C3 03 
0235 F0 DC 
0237 20 34 13 
023fi E3 
023B AC 33 02 

023E 28 fiS 3E 

mM m 31 m 



INPUT 



NOE 



NON 



rft^t f. /. 
rfc-r-, /. cr 

024 B 
0247 
024S 
0243 
024n 



50 



tic 



END 
MSG 



024B 20 
824C 43 
024D 4F 
024E 4E 
024F 54 
0258 52 

0251 4F 

0252 AC 

0253 20 

0254 i;m 

0255 4E 



^F 
45 
2F 
47 
3F 



B25B 
8257 
025S 
0253 
025ft 
025B 8D 
825C 8ft 
025D 20 
025E 43 
825F 4E 
02&8 58 
82&1 55 
82E2 54 

8253 3F 

8254 8D 
02&5 0ft 
02&E 03 



JMP 

JSR 

CMPIM 

BNE 

LDftIM 

JMP 

CMPIM 

E-NE 

LDftIM 

CMPIM 
BNE 
LDftIM 
JMP 



ERROR LDXIM 
Bm LDftftX 
CMPIM 
BEQ 
JSR 
INX 
JMP 



JSR 
JMP 



9^ 



ERmm ^ 



PMSG 

RECHftR 
'E 
NOE 
41F 
END 

'N 
NON 
$1E 

mm 

ERROR 
*12 
END 

$80 

ERRMSG 
$03 
INPUT 
PRINTS 

ERR 

PRINT 
MICRO 

' P 
'R 
' I 
'N 
'T 
'E 
'R 

'C 
'D 
'N 
'T 

' R ; 

. '% 

'/ 
'E 
V 
'G 
» •> 

«0D 

fm 
' I 

'N 
'P 

*y 

'T 



INPUT ftNTUOORD^ <N.E,G) 
EXTENPEO 

Jftf ZET DE PRIMTjER IN EXTENDED MODE 



NORMftftL PRINTEN 
NEE 

Jft, ZET DE PRINTER IN NORMftftL MODE 



GRfiFISCH PRINTEN 
NEE, FOUTE INPUT 

Jft, ZET PRINTER IN GRftFISCHE MODE 



PRINT "INPUT?" 



VOLGENDE^Ml^l 
OP SCHERM- 



ZET MODE 
TERUG NftftR 



«0D 
$0ft 
«03 



VRflftG EN_ftftNBOB 

SliMiNS~TiLix TYPE 37S. 5| 
ifiUD. MET INTERFACE. PflPIER 
EN 6502 SOFTWARE. 

UUR. 



TE KOOP • 

fiPPLE II EUROPLUS 48 K. ftPPLE DISCDRIVE 
MET CONTROLLER. SAME PADDLES, MONITOR 
SANYO, DOS 3.3. ASSEMBLER/EDITOR MOSER 
EN MANUALS. ALLES IS STAAT VAN NIEUW, 
TOTAM. I FL. 2. 500. ==. 
THEO KORTEKAAS. AKKERWINDE 3, i4A0DINX- 
VEEN, TEL. I 01828 - 18869- 
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m S502 KENNER 
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0030« 
00401 
0090 s 
OOfiO: 
0070: 
0080: 



mm* 

0130: 

tl40: 

016&S 
0170: 
0180: 




0S60: 
0590: 
0600: 
0610: 
0620: 

X 



#♦ 

*« S A f I C 0 0 i 



I i i i / in f V ft W B E R m 

* - - ^ ^ - - #4^ 



## 

H.ft.J.QUflST 

## DEKEMflSTflTE 15 tt 

#♦ 1275 CM HUIZEN (N.H. ) ## 

TELi %mm - 34905 ## 

#♦ 

'MrM^'M Jt M 'iti it iif' M If 'If- Hiiitf It- it ir 

'''H ll'i'lV H! 91 n n H .!Jf 'W.'W W W WW m- 



NflflR AANLEIDIN6 VAN HET REEDS EERDER 6EPUBLICEERI»i 

BASICODE PR06RAMMA IN DE 6502 KENNER NR. 23 DOOR 

DE Hr.J.P.van TOLEDO BEN IK GAAN NADENKEN OVER 

EEN BRUIKBARE SCHAKELIN6 TER VERVANGING VAN DE 

CASSETTE INTERFACE VAN ELEKTUUR JANUARI 1978 

DE 60EDE ERVARIN6EN DIE IK HEB OPGEDAAN HET DE JUNIOR 

CASSETTE INTERFACE HEBBEN 6ELEID TOT HET AANPA^^ 

VAN DE 0NTVAN6ER VAN DE JUNIOR VOOR DE BASICODE 

INTERFACE. 



ZENOER. 



NET BASIS PRINCIPE IS GELIJK AAN DIE VAN DE 
CASSETTE INTERFACE, DIE GEBRUIK MAAKT VAN EEN 
V.C.O. DIE IN HET RITME VAN HET INGANGSSIGNAAL 
AFKOMSTIG VAN DE COMPUTER OMGESCHAKELD MOfU^T VAN 
DE ENE FREQ. NAAR DE ANDERE. 

ALLEEN IS VOOR DE VCH HET VEEL 600^^1^ ffPE 

NE 566 TOEGEPAST. ' 

DE INGAN6 PBO IS GEBUFFERD MET EEN 7400 PllWr mmM 

DOOR Tl DIE FUNCTIONEERT ALS INVERTER. 

HET VOORDEEL VAN DEZE BUFFERING IS DAT DE 7400 PtMJRT 

HET OMSCHAKELMOMENT BEPAALT EN D1ENTEN6EV0L6E OP 

ZIJN UITGANG EEN 6EDEFINEERD 1/0 NIVEAU AF6EEFT. 

DEZE TWEE COMPONENTEN KUNNEN EVENTUEEL WORDEN MEG 

GELATEN ZODAT HET INGANGS&IGNAAL. OIR^T OP T2 

KAN WORDEN AAN6ESL0TEN. 

DE UIT6ANGSFREQUENTIE WORDT BEPAALD Mm DE 

INSTELLIN6 VAN POTMETER PI EN P2. 

HET OMSCHAKELEN VAN DE FREQUENTIE WORDT \^RZOR^ 

DOOR HET WEL OF NIET GELEIDEN VAN T2. 

HET UITGANGSSIGNAAL KAN M.B.V. EEN POTMETER 

GESCHIKTGEMAAKT WORDEN VOOR BUNA lEDERE CASSETTE 

RECORDER. 

HET AFi^^N VAN DE ZEMMR: 



VOOR HET AFRE6ELEN VAN DE ZENDER IS ALLEEN EEN 
FREQUENTIE TELLER NODIG. 

AANGEZIEN DE FREQUENTIE ENIGSINS AFHANKELIJK IS 
VAN DE V0EDIN6SSPANNING IS HET AAN TE RADEN 
OM DE SCHAKELIN6 ONDER BEDRI JFSSPANNING VAN DE 



as 



^6 5 d iE! 
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0650: 
0660: 
0670 s 
0680! 
06901 
0700: 
0710: 
0720: 
0730 « 
0740: 
07501 
0760: 
0770: 
0780: 
0790: 

oaoo: 

0810* 
0820: 
0830: 
0840: 
0850: 
0860: 
0870! 
0880! 
0890! 
0900! 
0910! 
0920! 
0930! 
0940: 
09501 
0960! 
0970! 
0980! 
0990! 
1000! 

1010! 

1020! 
1030! 
1040! 
1050: 
1060! 
1070! 
1080! 
1090! 

1100! 
1110! 

1120! 
1130! 
1140! 
1150: 
1160: 
1170: 
1180: 
1190: 
1200: 
1210: 
1220: 
1230: 
1240: 
1250: 
1260: 
1270: 
1280: 



UP-VOEDINe AF TE {S8ELEM» 

OLS EERSTE WORDT OP DE PBO INGfiNSSPOORT EEN LOGISCH 
0 NIVEAU 6EZET DOT ftLS GEVOLB HEEFT HET 6ELEIDEN VAN 
TRANSISTOR T2. 

HIERNA WORDT P2 AFGEREGELD OP 1200 Hz. 

VERV0L6ENS WORDT ER EEN LOGISCH 1 NIVEAU OP PBO SEZET 

EN MET PI DE FREQUENTIE OP 2400 Hz AFGEREGELD. 

TEN EINDE EEN JUISTE AFREGELING TE VERKRIJ6EN, 

IS HET VERSTANDI6 DEZE METING EEN KEER TE HERHALEN. 

HET UITGAN6SSIGNAAL VAN DE ZENDER KAN MET P4 

AFHANKELIJK VAN DE EI SEN VAN DE TOEBEPASTE CASSETTE 

RECORDER WORDEN INGESTELD. 

HIERMEE IS DE AFREGELING VAN DE ZENDER KLAAR 
EN KfM UORDEN WBSm Smim MET DE DN?VflN6ER. 

ONTVANGER! 



DE ONTVANGER IS OPGEBOUWD ROND DE FASE-LOCK-LOOP 
NE 565. 

OVER DE WERKING VAN DE PLL KAN IK VERWIJZEN NAAR 
HET JUNIOR BOEK DEEL 3 HOOFDSTUK 10 BLZ. 26. 
WANNEER ER BEEN INGANGSSIGNAAL OP INGANGSBUS 
'REC. OUTPUT' WORDT GEPLAATST ZAL DE VRIJLOOP FREQ. 
VAN DE V.C.O. 1800 Hz BEDRAGEN. ( NA AFREGELING) 
ALS EXTRA HULPMIDDEL ZIJN ER TWEE LEDS AANGEBRACHT 
DIE DE VOLGENDE FUNKTIE BIJ HET ONTVANGEN VERVULLEN: 

LED ROOD :DEZE LED 6EEFT AAN DAT ER EEN 

1200 HZ SIGNAAL WORDT ONTVANGEN* 

LED GR0EN:DEZE LED GEEFT AAN DAT ER EEN 

2400 HZ WORDT ONTVANGEN. (DE LED BRANDT 
6EDURENDE 3 SEC. ALS DE HEADER WORDT 
UITeEZONOEhl VAN HET BA9IC0DE PROSRAHMA) 

TIJDENS HET ONTVANGEN VAN HET BASICODE SIGNAAL ZAL 
ZOWEL DE RODE ALS DE BROENE LED KNIPPEREND OPLICHTEN. 
MET DEZE INDIKATIE IS HET NAAR MIJN MENING 
GEMAKKELIJKER GEWORDEN OM HET JUISTE MOMENT VAN IN EN 
UITSCHAKELEN TE BEPALEN. 

DOORMIDDEL VAN HET 3-STATE BUFFER IS HET MOGELIJK 
DM DE LIJN HOOGOHMIS TE MAKEN WAARDOOR HIJ, INDIEM 
ER NIET MET DE BASICODE INTERFACE GEWERKT WORDT 
GEEN INVLOED MEER UITOEFENT OP DE INFORMATIE 
OVERDRACHT VAN HET KEYBOARD NAAR DE COMPUTER. 

HET AFREGELEN VAN DE ONTVANGER 



OOK VOOR DE AFREGELING VAN DE ONTVANGER IS AU.EEN 
MAAR EEN FREQUENT I ETELLER NODIG. 

ER WORDT GEEN INGANGSSIGNAAL OP DE ONTVANGER AAN- 
GESLOTEN. VERVOLGENS WORDT MET DE POTMETER P3 DE 
FREQUENTIE DIE GEMETEN WORST OP PEN 8 VAN DE 
AFGEREGELD OP 1800 HZ. 
NU IS DE UNIT GEREED VOOR GEBffinf(< 



BUITEN HET GEBRUIK ALS BASICODE ZEND/ONTVANGER HEEFT 
DEZE UNIT BIJ MIJ OOK ZIJN NUT BEWEZEN BIJ HET SAMEN 
VOEGEN VAN TWEE BASIC FILE'S. (DEZE METHODE IS ALLEEN 



39 




40 



Bosicode zend/onfvang&r 



E^B 5 D S 



m SS02 KEI^iNE R 



1290: 
1300! 
1310: 
1320! 
1330i 
1340! 
1350: 
1360: 
1370: 
1380; 
1390: 
1400: 
1410! 
1420: 
1430: 
1440: 
1450: 
1460: 
1470: 
1480! 
1490! 
1500: 
1510: 
1520: 
1530: 
1540! 
1550! 
1560: 
1570: 
1580: 
1590: 
1600: 
IGIO! 
1620: 
1630: 
1640: 
1650: 
1660! 
1670: 



NUTTI6 BIJ HET ONTBREKEN VAN EEN APPEND COMMfiNDO). 
DE INTERFftCE KAN MEN NAMELIJK BESCHOUWEN ALS ZIJNDE 
EEN KEYBOARD DIE ZIJN INFORMATIE MET EEN SNELHEID VAN 
1200 BAUD NAAR DE COMPUTER ZENDT. 

WEL MOET EROP GELET WORDEN DAT IN DE TWEE PROSRAMMA' S 
NIET DEZELFDE RE6ELNUMMERS UORDEN eEBWIUf. 



STUKLIJST 



Rl» 33 
R2« 15 
R3* 4.7 
R4» 



ohm 
Kohm 
Kohm 
10 Kohm 
R5- 4.7 Kohm 
R6= 2.2 Kohm 
10 
10 
10 



R7= 
R6- 
R9= 

R10> 33 Kohm 



Kohm 
Kohm 
Kohm 



Cl« 22 nF 

C2- 10 uF lOV 

C3= 56 nF 

C4= 1 nF 

C5= 56 nF 

C6= 10 nF 

C7» 10 nP 



R13= 330 
R14= 330 
R15= 1.2 
R16= 10 
R17= 10 
R18= 3.6 
R19= 10 
R20= 10 
R21= 4.7 
R22= 1 



ohm 

ohm 

Kohm 

Kohm 

Kohm 

Kohm 

Kohm 

Kohm 

Kohm 

Kohm 



C8= 10 nF 

C9= 1 uF 15V 

C10= 1 uF lOV 

Cll= 1 nF 

CI 2= 27 nF 

C13= 1 uF 15V 



Tl = BSX20 T2 = 2N2907 
Nl = NE 565 N2 = LM 324 
N4 = SN 7400 N5 = NE 5^ 
Dl = 5V1 ZENERDIODE 

END 



N3 = SN 74LS125 



* DOS 65 Voorde I en 
* 

* Kies voor DOS 65 een NIELiW disc- 

* operating system voor de JUNIOR 
)H en wees daarmee compatttol Met 

* and»re Htubleden ! 
* 

* Innchtingsn i tectinische Hf««ii#i« Ottd#rf»#frtiw» * 

* C. J. Bootsma * 

* Beethoven I aan 19 Leidschendam * 

* Tei s ar© - 2733S1 * 

* Ook voor! Printers? Monitoren? Componenten> Uri i versee I metersi enz * 
m Offtcieei dealer van : Mitsubishi disc-drives en Acorn Computers * 



: * I ow cost * 

* m i n t ma I e v© ran de r i n#en * 

i n de J wn i or * 

* print beachikbaar * 

# voH»«il«, >fiedoeW«t*ftt©«rd * 

# soed verkr Uabare onderdelen * 
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F73I »TOWri»^ mBM F73 



F73iF730F730F71^7^^ 
Benod i 9d s JUNIOR, m&t iwtmrfmmkmmtt 



r / 0 



Door s Harry Vandendr i esscba 

El i sabethi aari 2B 
3870 Kortenbere 

Tef!:''02 / 7533777 

net bet reft h i e r een u i t b r e i d i ri9 vari 
J. F. van Spraris» zoais 9epubli ceerd 
Tiumm&r 23 van oHtok>&T 13S2. 



he-'i mrmrmmmA van 
in m i502 KENMER 



Met dit prograiTima meldt d© JUNIOR-coifii*$»f 
matisch biJ het opzetten en na reset 



Hmtdmrntm t De d i spi ayschakelaar wordt kort«©s»ot#n op 

de bas i SQT i nt. 

Deze Bchakei aar wordt eeplaatst .tiissen 
Pin 4 van IC7 en de PftB-POort- 

3 c ha k e I aa r o pen = bas i SMon 1 to r 
schakeiaar toe »:-i;>r interinonitor 

Een condensator van 0,47 «#^/10 V wordt Pa- 
ra 1 lei over de resettoets set^laatst. 



Software 



P I aat5 vo 1 gend 
de resetvector 
ad res: $F730. 



prograffiwa in Eprom eri riCht 
*FFFC en *FFFD op het besin- 



PlUTOil ORG 



Zero Pa^e addresses 



Fl 

r 



m 



FF 00 



SiZi 

O 1 
#-%•-• 



X M 

lA 



PREG 
SPUSER 
BYTES 
MOI>E 



* 

m 



$BI3F1 
$!3BF2 
$(3j3Fo 
«^FF 



I/O - de-FinitilSR 



PAD 
PADD 
PBD 
PBDD 



* 
* 



$1AS0 
*lASi 

5P 1 MO^ 
»> 1 MOO 



Jport A data resister 

;rort A data dir. resister 

;Port B data register 

;Port B data dir. register 



53 
5A 
5C 
5P 



lA 
lA 
lA 



TeiiiPorary data bufffe-r 



CNTHL 
CNTHH 



:+: 



$1A53 
*iA5A 
*iA5C 



7 J3 I 

;Ha 



of StOPb i tS +1 

t i me buffer 
bit t i me buffer 
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OO J. L 

rhrh 4 r* 

\USU ± 

r-r\ 4 4 

CO 1 X 

34 13 



BTftRT * 
INITPR * 
CRLF * 
PRCHfi * 



*1C33 



$1 



F73i3 

I f-r-~, 

r 

I r-T-?' 

r / 

r / OtJ 
r / o / 

F733 
F73B 

r--»-TT\ 

r f oiJ 
F73F 
F74i 
F744 

F743 
F74ft 
F74B 

I 7 i. r\ 

r ( M-iJ 

F75B 

I f cr^-i 

r / 

I yercr 

r / UvJ 
I ycr-7 

r ( 

I ycr#-\ 

r t vjH 
I — rem" 
r / 

I — ijsr- 
r / ur 

F7E1 
F7S4 

r / ob 
I — yr* r\ 
r / od 

I — rr* r> 
r / OL^ 

F7&E 
F771 

I — r-y-T 
r / / o 

F77B 

I TS r\ 

r ( t ct 
I — r -y "Ti 

r / / c 



I yr-vrt 

r / ok:^ 

r / o j» 
r~-y r%cr 

r / CfU 

F-y r-i-y 
f Ct / 

I r r\ r\ 

r / OM 

I / /-\T-i 

r / oo 



ft2 
3Pi 
SE 
fl2 
SB 
S& 
fi2 
8E 
02 

Pl2 

OC 

DS 
7S 

F0 
4C 
ftS 

fig 

SD 
ft2 

mr- 
OC 

ftS 
SD 
3D 
ft2 

f-vr- 
OCL 

ft3 
3D 



D 



rrs 

r «u 

•~ir*i 

/. r-^ 
44. L/ 



03 

r~r- 

r r 

F£ 
04 
Fl 

4 r~ 
X C 
r>-T 
00 

07 



03 



00 
30 
71 
5fi 
7F 
31 

r\-r 

02 

crf~> 

-rr-v 
OO 
err* 

00 
5D 
00 

r~r-k 
CIO 
r-k 4 
ZJl 

07 
34 



ift 
lA 

IPi 

IC 

Ifi 

1ft 

1ft 

1ft 
lA 

lA 

lA 

m 



mir 



PRENT 



F73E 4C 00 



r / 

10 



PMo^ 



LDXIM 

TXS 

STX 

LDXIM 

STX 

STX 



LDXIM 
STX 
LDXIM 
STX 
CLD 
5EI 
LDftlM 
BIT 
BED 
JMP 
LDftIM 
STft 
LDAIM 
STft 
LDXIM 
STX 
LDftIM 
STft 
STft 
LDXIM 
STX 
LDftIM 
STft 
LDftIM 
STft 
LDYIM 
JSR 
LDftftY 
CMPIM 
BEQ 
JSR 
I NY 
JMP 
JMP 



SPUSER 

$03 

MODE 

r-.N/n-r-r* 
O T I mo 

$04 

PREG 

$1E 

PBDD 

*07 



$01 

PftD 



^f>b / 

PBD 

$00 

PftD 

$71 

CNTL 

$7F 

PftDD 

PBDD 

$02 

STPBIT 

$33 

CNTHL 

$00 

CNTHH 

$00 

CRLF 

$F731 

$03 

PMON 

PRCHft 



PRENT 
INITPR 



waak PB0, PBi en PB2 = 1 



i 5 deze open ? 

95 nAokr boiS i SfiiOn i uOi" 

zet PB - POO ft en 
ze"t Pft — POO "ft en 

Z&X VOOi" i OP i se b i XX i J d 

Maak Pft7 insans 
mmu PB7 i'rt^ani 



Z0t vr#^rr)Ojilt:# l»audrate 
CR + LF^ 

print "JUNIOR coiTit-'U'ter 
sv'S'teiii reset stoir't up by 
printer Monitor press delete 
to mtart" 



naar Printer monitor. 



0 1 s s & s e 7 S S i* B C B E F 

0ft 0ft 0ft 0ft 0ft 0ft 0ft 0ft 0ft 0ft Oft Qft 

2p 20 4ft m 4E 49 4F 52 20 43 4F 4D 

-0 2D 2D 2D 0D 0ft 0ft 53 53 53 54 

54 0D 0ft 53 54 41 52 54 20 

52 49 4E 54 45 52 20 4D 4F 

m m 52 45 53 53 20 44 45 
m m m 4i 52 54 00 0ft 03 




ercr crs 

4E 49 

m m 



JMIDR COM 

. — - SYST 

EM RESET STftRT 
UP BY PRINTER MO 
NITDR PRESS DE 
LETE TO STftRT 
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SINGLE STEP 
EENVOUDIGE OPLOSSING 

Ik heb een heel eenvoudige oplossing gevonden voor het single-steppen voor 
de jtiirfior ^ immrimB Immrt. 

Met de oplossing van Elektuur was ik niet zo gelukkig, het opsteekprint je 
neemt extra ruirate in beslag, en bij het single-steppen is het niet mogenlijk 
m alle C^^tofdtrtifi^'s vmn) programma ' s te 'Mraaien'^(^M^^'Ml0m toat geheugen-- 
gebied tussen 0000 en 07FF kan in single-step doorlopen worden. Dit gebied 
dat effectief maar li K grootis, zal in de meeste gevallen voldoende zijn. 

WERKING 

Nu word niet het niet te single steppen geheugengebied geselecteerd jnaar 

het gehetigeegeMed dat iMg WWifen gesingle-stept. Omdat K0 & Kl geinverteerde 

signalen zijn mag je de Nand poort zien als een OF poort(zie tek.) Als nu 

K0 of Kl aktief is dan is de uitgang "1", dit signaal wordt toegevoerd aan 

pen 3 (de vr©#g#rt li^fitnf ¥@©r 17), dit signaal wordt geAND met de sync- 

uitgang van de processor, en wordt toe3evoerd aan de NMI-interrupt ingang. 

Deze AND-poort is in werkeli jkheid een NAND, dit komt omdat het NlMI-signaal 

gtetlef Is ali mtm ^d** ts. De extra w^^mtm^ zlt er am ie spMiiJig Of 

de open-collector uitgang omhoog te trekken, zodat de volgende poort een 

mooie "1" spanning op zijn ingang krijgt. Als U een ander geheugendeel dan 

ik hier heb voorgesteld, wilt single-steppen, iiti ¥@rM!ti W 4^ »i# 4i*aden 

(van pen 11 & 12 Ic 10 basiskaart) met de selectie signalen van die geheugen 

Ig's waarin U wilt single-steppen • (OS is het selectie signaal) 

EOJJU 

Dit is erg eenvoudig. Haal Ic 10 uit zijn voetje, buig , voorzichtig en niet 
te dicht bij het Ic, iefeiiia^^ S, 1 1,11 en 13 ontoi^g. Soldeer emn ilain 1 Kfl 
weerstandje tussen pen 14 en pen 3, soldeer dan een klein draadje tussen 
pen 3 en pen 13, Nu moeten er twee draadjes aan de pennen 11 en 12 gesoldeerd 
worden, van 10cm. laiig, welke ofp iTO ^mmt aan de peimem 1 & 1 ma Ic 6 worden 
gesoldeerd. Hierna gaan ze beidea weer Wmm irCMitje, en faitm da JMlpe 

weer worden aangezet. 

GEBRUIK 

Bat is verreweg probleemloos, alle programma ' s in eprom kimn^ gm&tmmijii wiirtWi* 
het maakt dan niet uit in welke stand de step-schakelaar staat . Alleen de 
programma * s die tussen 0000 en 07FF staan, kunnen eventueel in single-step 
worden ^oafLofen. De programs * s ktitinen dlffect wnult y-ADE gestaft: worden , 
de junior komt dan terug met het adres en de inhoud van de tweede instruktie « 
en zit dan in PM. iMen komt terug in y-ADE door op de BRK-toets (ASCII - 
toetseabord) te drukken, i^marna met het ttmmnixs^ gekeken km worden hoe 
het programma ook al weer in elkaar stak. 

voor vragen, llefts schri jven aan 
Ronald Hermens 
Lariksstraat 35 
4814 HT BREDA 
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BEDRADIiNGSSCHEMA 

De lange pennen zitten gewoon in het voetJe# 4e kor te .ftaiien 
zijn omgebogen naar bovan* 

De bQlletjes stellen de twee (f lexibele) verbindings draden 'v^oor, 





13 


12; 1 llj • 10| 9 






> 




, i 














1 


2 


3 















12 


11 


10 




> 




















h 




7 


8 



741.803 / Ic 10 



SCHEMA: 



sync . 

K 0 
K 1 



ill 




- ■ -T -■ ,TT?-T-™=— -f^ . 


1 ' 

2 










12 


& 


13 

0— — — — — 


3 


& 











A- 
B. 



^1 



. A?— o 



A 


E 


Q 


A 


B 


Q 


. A 


B 


Q 


0 


0 


0 


# 


^ 


1 


0 


# 


% 


0 


1 


1 


0 


1 


1 


0 


1 


1 


1 


0 


1 


1 


0 


1 


1 


0 


1 


1 


1 


1 


1 


1 


0 


1 


1 


1 



p^F» IS D ig-l ^ 



INTEU3 BENTE gtWFIS CHg TERWIN ftt VftN MC 
Do0r8 Bert Klein, Wi»9#i)inaen 

Het Duitse coeoutefti iiii^ififi MC jNiel% mime tiid aeleden een ontwero 
geoubliceerd voor een infellltieme itraflwclie terfliiinal met hooaoolossend 
vermoaen (512 bij 265 beeldounten). Deze terminal is bruikbaar bii elke 
coMDufer met een vri le V24/RS 232-C interface. De baudrate is imet behulo 
¥mm^ terihiaiii l^elbaat t^nmii^ M mm. 2B800 baud. 

In princioe bestaat t^t ontwerm ail tuee ^Im t 

^ Een Z80A microorocessor. een 8 K itft stiiursirftiiai^. ft H^tes 

RAM en twee 6 bits oarallel I/O ooorten. 

- Het arafische oedeelte bestaande uit een soeciale video-orocessor 
van fm^ t^oe BtP 9366 van de f irma, IriiimNNin met vij^ ^MU 

De videe Ifm is mar liefst 64 K ardot wm is ooambmrni met dvnamische 
ItAMs van het tvoe 6164. De GDP 9366 deelt de RAM in vier blokken van 
i& K OD. Telkens wordt een enkel 16 K blok oo het beeldscherm aezet. 
SaftNarematia kan overoeschakeld worden naar een ander 16 K blok. 
Hierdoor is het moaeliik om een nieuM beeld in video RAM oo te bouwen 
zonder dat dit fpilMk m hut iNMldscheriii te mim I^lfti is het 
mogelijii m ^mm istmkm wmf' slJcaar heen i» urmiiil^rmi ioor tussen 
twee blokken heen en wetr te «^i^|^eii« 

Qai al isMI f raais oo een gemakkeli ike manier i» aiimm l^eediilit lii 
l^fifttfiil over een zeer uitaebreid en oebruilcerBvriendellik sttiur- 
orogramma in B^ROM- commando's worden in de vorm van escaoe karakters 
aevolod door ei^i aantal oarameters aeoeven. De terminal kan in vier 
verscfiillende iittl ipbrtllM I 

- ALPHA modus 

Mlerin fun^iimert ile iitwtiial mim mmm mmml rnlMmmmmPtrnk. 
^i^mdmf* VMI fmmmi Im i$ Icaralitvm bi.j ti rei^sisk ML i^itn er zmt 
uitvoerifft tl^^ cursorsturind, het wissen. tumimoecien 

van meis^ katirftf ers enz. 

- GRAFISCHE modus 

In deze modus is het moaeliik tekeninoen en diaorammen oo het 
. iiMiiliiieii^^ fiMi'ili#iMim».-#t^ 
%mn de iiir^ifcer li tnen #d fiel t^if fdschera tekenvn^ #eriter i»vat deze 
modus standaard commando's voor het tekenen van cirkels. elliosen. 
driehoeken. rechthoeken enz. Het is moaeliik om in het ene video RAM 
blok b. V. will amei^iH^ia te xetiim en mm erafieU 1^ Jiel andere en 
vervoloens ^^^m o^r eifeter mmwm'wMmmM mm heili bneldscherm 
te toveren. 

- LOGO modus 

Afgeleid van de bekende oroarammeer (en leer'-)taal LOGO. Met behulo 
van een oijlvormioe cursor^ die in verschillende richtinoen kan 
Hijtm t% net moaeli^Jc InteiaGtief takenimsen oo het scherm oo te 

Erg interiMmM ¥iOf di« zelf Min LOGO acht iae 

teal zouden zoii b^ v. heel aned in FORTH 

fedaan kunnen wo ram. 
EKTRONIX modus 

In deze modus functioneert de terminal als een olotter. Een denk^^ 
beeldige tefiemiir^^ im iNit •tftware mtiiNurbaar en schriift allerlei 
dlagrammen 0m iwl iiMlii^^ 

Zoals uit het bo^em^aande lliikt zijn de moaeli ikheden van de terminal 
bijziftiider groot. 

Nog wat tirchnische geoevens i tUfillfilii leveft een comooeite^i^ 
signaal van 5 V tt^, Mil Is 00k moaeliik om beeld- en svnchronisati#^ 
sionalen gescheiden af te nemen. De schakelina is oooebouwd 00 een 
duobelzijdiae dooraemetaliseerde orint van eurokaart formaat. De voedim 
moet +5, +12 en -12 V leveren. De + en - 12 V worden overiaens alleen 
door de fl8 232 irrt^erfMNt gebruikt^ Event ueel if het 00k moaeliik mmr\ 
serieel toetsenbord 00 de terminal aan te sluiten. 

De MC terminal wordt oeleverd door de firma Hermac Soecial Electronics, 
AntwoordnumMr 126 te Gcheroenzeel. tel* 02497-<-19SK). De oriis bedraaat 
hfl. 729^-. De leverancier elaimt if4rhter oriiswiizioirttien ale oevolo 
van de onstabiele halfaeleidermarkt. 

// 
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DOORS W. L. van Pelt 

Od het ogsYiblik is via de cassette-bibliotheek FCRTh qd band verkri-:c- 
baar, zoals Qeoubl iceerd door Gerard van Roekel in DE 6502 KEMNE.^ v#n 
oktober 1983, editxe 28. In deze FORTH zim reeds ODpenoiYien de moordBn 
CLS (clear screen), PRftAN (orinter aan) en PRUIT (□rinter uxt). 



CLS 



448E : 

4430 12 ( C H ) 
4494 EfllT 
4496 ; 



PRftPN 



44D5 : 
44D7 1 

44DB 6720 ( lA40 H ) 
44DF ! 
44E1 :S 



PRb'IT 
44E3 : 

44ED 0 ( 0 H ) 
44F1 6720 ( 1A40 H ) 
44F5 ! 
44F7 :S 



Wat PRflftN en PRUIT bet reft ais ,ie de orinterrout ine aebruiKt zoals 
Qepubiiceerd in DE 6502 KEIMNER nr.' 26 oag. 16 ev. , dan werkt het natuur- 
li.ik niet- omdat die routine niet naar adres $:fl40 kiikt, maar midcels 
de subroutine SUBQKI de VIA-ooort B bekiikt of er een'l qo PBl si;iia4* 
OiYi vanuit FORTH in dat oeval de or inter aan te scha»<elen, lit' 
dus zorqen dat adres $lS0O gefiiofloot wardt. Oat :doi&n m kmism -W^M^k^ 
lijk met de volaende wi izicinaen: 



adres 44D9 wordt 02 
adres 44DD wordt 00 
adres 44DE wordt IS 
adres 44F3 wordt 00 
adres 44F4 wordt 18 



( PBl 



1) 



Eenvoudic, maar doel t ref f end. 



Qm HOME toe te voeaen, heb ik in het vocabuiarv het 
mm ( zia het art i feel in editie 2B ) 



vo 1 gende o sgenc^- 



t mm 27 mrr m Emr ; 

Bit is wel terminal afhankeji rl<# Voor mij geldts HOIfE « IS 48. 

Dan vernacft ik noa van Ronai# Mink hoe le screens a^f^ter elkaar 03 
beeldscherjYi kunt listen. Een voorbeelds list de screens 0 t/m 15* 

: L 16 0 DO KEY I LIST LOOP : 

Dit heeft een klein probleem: na het indrukken van L (het QO^rm^n 
de naam L dus) moet \e tweemaal (Return) indrukken. h#i li^i^f 
alle screens eindigt "FORTH wel keurio in de pronrot OK teruis. 
Je kunt het ook ais volgt doen: 

I I, ii 0 DO I LIST KEY LOOP 5 

In dit geval ben je van het genoefvide orobleempTe verlost. Wel m#et jti 
na de laatste screen noa eens (Return) indrukkm, 

Qmdat je niet altijd hef zelfde aantal screens milt listen, is het im 
niet aan te bevel en het od te nemen in het vocabulary, Wie stuurt in 
oolossing om wel een variabel aantal scrcM^ne te liitin, dat ook in 
vocabulary kan worden vastgelegd? 

Fridus JonkiYjan schreef me: "Executie van Het volferidji mmr4 dlent biw- 
deloos het orinten van de tekst '6502* t^0t pi¥tld ti Niifetyl 
: RECURSIE . " 6502 " RECURSIE J 

Dit lukt niet, omdat een dergeliike source-tekst zich niet laat co^oi'* 
leren, omdat de comoiler in de definitie het woord RgCURSIf tMani^©#$* 
dat hij nog niet kent. Hi 1 is er nameliik noa mee tie^igl liil f ^jfii m^I 
via de yolgende vorm. welRe algemeen toeaasbaar is 

t REcuRiir . mm " i - - - - - --i 

I R> DROP I 

j I LATEST PFft mm , i i i 

Het omstreeote gedeelte zorat ervoQr dat via een true de cowoiler 
doet wat hij moet doen. " 
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PftTCHES rOR UTIUITY PACK VI. 1 FATE 6SXX fiSill®LER VI, 0 Ptt^i 0001 



oooi 

0002 
0003 
0004 
0005 

^ 

0000 
0009 
0010 
0011' 
0012 
0013 



0000 
0000 
0000 
0000 
0000 



0000 
0000 
0000 
0000 
0000 
0000 



.TIT 'PATCHES FOR UTILITY PACK VI. 1' 
.OPT GEN 
.OPT PRI 
.CPT lYM 



: * mmm m mmry pack vi.i * 
f # ■ « 



DEFINITIONS 

0015 0000 

0016 0000 

0017 0000 

0018 0000 

0019 0000 

0020 0000 

0021 0000 

0022 0000 

0024 

0025 0000 

0026 0000 



0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
00^ 
0043 
0044 
0045 
0046 

mm- 



ooso 

0051 
0052 
0053 
0054 
0055 
0OS6 
0057 
0058 
0059 
0060 
0061 
0062 



» SENIOR MONITOR VECTORS IN UTIL» 



OUTALL 
CRLF 



-f044«l 
*f04S3 



: VTfL* 8U8R@UTINES 

■ 

03PIER ^mmtE 



CHARACTER TO ACTIVE OUTPUT DEV. 
CR+LF TO ACTIVS IKiTPUT DEVICE 



: Wm FILE. DECR. COUNTER FIRST 



0000 
0000 
0000 
0000 
0000 
0282 
0282 
0285 
0285 
0285 
0285 
0285 
0285 
0285 
0242 
0242 
0245 
0245 
0287 
0287 
028A 
028A 
02A1 
02A1 
02A4 
02A4 
02A4 
02A4 
02A4 
0465 
0465 
0468 
046B 
046C 

04ec 



1! ON SPLIT A FILE ONE LINE TOO MUCH WAS 
WAS COPIED INTO FILE 1 



201E03 



'•««028a 
JSR COPIER 



COPY nm pmr pile i 



f WL 28 AFTER SPLIT OR MERBE THE FILES COULD NOT 
t BE READ BY EDIT65. BECAUSE THE m»H.im 

: WAS NOT CLOSED BY CR+LF 



JSR CLOSEF 
#•♦0287 
JSR CLOSEF 
*»*02A1 

JSR CLOWm 

W', 

t. NEW CLOSE FILE ipmE 
»»*0465 



204A04 CLO^ JSR OUTALL 
205304 JSR CRLF 

60 RTS 

.mm 



206504 
206504 



I mJOm FILE WITH EOF. CR, LF 
t CLOSE FILE 1 WITH EOF. CR. LF 
! CLOSE FILE 2 WITH EOF. CR. LF 



SEND EOF IN mm 

CR+LF 



8 



^ ^ all-round 

All-round Systemen Nederland B.V., Stationsweg 23, 2182 BA Hillegom 
postbus 212, 2180 AE Hillegom. tel. 02520-19544. telex 41443 aliro nl. 

WIJ LEVEREN SNEL EN TEGEN ZEER CUNSTIGE PRIJZEN: 

Diskettes 

van verschillende merken zowel 8" als 5^". Tevens formatted en 
cleaning dikettes. 

Papier 

voor kleingebruikers leveren wij dozen van 1000 vel 38 cm. 

Inktlinten 

linten en kassettes voor alle gangbare printers. 

Computermeubilair 

o.a. ideale tafeitjes om een kompleet micro systeem op te plaatsen. 

Data -safe s 

een mini safe voor 80 x 5V\ of 30 x 8" diskettes. 

Opbergsystemen 

o.a. voor diskettes, tapes, kassettes erj. alle maten output. 

Geluiddempende kappen 

brengen het geluid van uw printer 75 tot 90% terug. 

Alles voor uw computer 




******** HULPTftBEL VOOR OMREKENEN HEXflDECIWWL NAflR DECIWML ********* ***** HEDEDELINS REDflKTIE ««♦» 



HEX 




- 

— 


DEC 




HEX 




- 

— 


DEC 


HEX 


- 




DEC 


HEX 


_ 


DEC 


0000 


- 


0000 


4000 


- 


16384 


8000 


_ 


32768 


COOO 


_ 


49152 


03FF 


- 


1023 


43FF 


- 


17407 


83FF 


_ 


33791 


C3FF 


_ 


50175 


0400 


- 


1024 


4400 


- 


17408 


8400 


_ 


33792 


C400 


_ 


50176 


07FF 


- 


2047 


47FF 


- 


18431 


87FF 


_ 


34815 


C7FF 


_ 


51199 


0800 


- 


2048 


4800 


- 


18432 


8800 


_ 


34816 


C800 


_ 


51200 


OBFF 


- 


3071 


4BFF 


- 


19455 


8BFF 


_ 


35839 


CBFF 


_ 


52223 


OCOO 


- 


3072 


4C00 


- 


19456 


8C00 


_ 


35840 


CCOO 


_ 


52224 


OFFF 


- 


4095 


4FFF 


_ 


20479 


8FFF 


_ 


36863 


CFFF 


_ 


53247 


1000 


- 


4096 


5000 


- 


20480 


9000 


_ 


36864 


DOOO 


_ 


53248 


13FF 


- 


5119 


53FF 


_ 


21503 


93FF 


_ 


37887 


D3FF 


_ 


54271 


1400 


- 


5120 


5400 


- 


21504 


9400 


_ 


37888 


D400 


_ 


54272 


17FF 


- 


6143 


57FF 


- 


22527 


97FF 


_ 


38911 


D7FF 


_ 


55295 


1800 


- 


6144 


5800 


- 


22528 


9800 


- 


38912 


D800 


_ 


55296 


IBFF 


- 


7167 


5BFF 


- 


23551 


9BFF 


_ 


39935 


DBFF 


_ 


56319 


ICOO 


- 


7168 


5C00 


- 


23552 


9C00 


_ 


39936 


DCOO 


_ 


56320 


IFFF 


- 


8191 


5FFF 


- 


24575 


9FFF 


_ 


40959 


DFFF 




57343 


2000 


- 


8192 


6000 


- 


24576 


ftOOO 


- 


40960 


EOOO 


_ 


57343 


23FF 




9215 


63FF 




25599 


fl3FF 




41983 


E3FF 




58367 


2400 




9216 


6400 




25600 


»400 




41984 


E400 




58368 


27FF 




10239 


67FF 




26623 


fl7FF 




43007 


E7FF 




59391 


2800 




10240 


6800 




26624 


0800 




43008 


E800 




59392 


2BFF 




11263 


6BFF 




27647 


flBFF 




44031 


EBFF 




60415 


2C00 




11264 


6C00 




27648 


flCOO 




44032 


ECOO 




60415 


2FFF 




12287 


6FFF 




28671 


flFFF 




45055 


EFFF 




51439 


3000 




12288 


7000 




28672 


BOOO 




45056 


FOOO 




61440 


33FF 




13311 


73FF 




29695 


B3FF 




46079 


F3FF 




62463 


3400 




13312 


7400 




29696 


B400 




46080 


F400 




62464 


37FF 




14335 


77FF 




30719 


B7FF 




47103 


F7FF 




63487 


3800 




14336 


7800 




30720 


B800 




47104 


F800 




63488 


3BFF 




15359 


7BFF 




31743 


BBFF 




48127 


FBF 




64511 


3C00 




15360 


7C0O 




31744 


BCOO 




48128 


FCOO 




64512 


3FFF 




16383 


7FFF 




32767 


BFFF 




49151 


FFFF 




65535 



HULPTftBa II VOOR OMREKENEN HEXADECIMftAL NflftR DECIMflflL 



VOOR flLLE 6502 COMPUTERS HEEFT 
DE KIM GEBRUIKERS CLUB NEDERLflND 
SEDERT ENIGE TIJD DE COPYRIGHTS 
VERWORVEN VAN DE ASSEMBLER. DIS- 
ftSSEMBLER EN TEXT-EDITOR VftN DE 
FIRMft MICRO-WARE LTD., 27 FIRST- 
BROOKROftD, TORONTO, ONTARIO. Cfl- 
NflDfl, M4E 2L2. 

DE SOFTWARE WERD BESCHREVEN DOOR 
PETER JENNINGS. WIJ HEBBEN DE 4K 
VERSIE VOOR DE KIM-1 DANK ZIJ DE 
INSPANNINGEN VAN SEBO WOLDRINGH 
UITGEBREID TOT 8K, VASTGELEGD IN 
EEN SOURCE-LISTING VOORZIEN VAN 
COMMENTAAR EN DIREKT BESTEMD TOT 
GEBRUIK MET DE JUNIOR-COMPUTER. 
DOOR HET AANPASSEN VAN ENIGE BE- 
KENDE IN/OUT ADRESSEN KAN MICRO- 
ADE DRAAIEN OP ELKE 6502 MACHINE. 

MANUAL + COMMAND SUMMARY F. 35.== 
8K SOURCE-LISTING JUNIOR F. 65.== 

JUNIOR CASSETTE HYPERT. F. 12,50 

WILT U MEER WETEN OVER PRIJ2EN IN 
DE CLUB? 

STUUR F. 1.40 EN RETOURENVELOPPE 
AAN: 

REDAKTIE DE 6502 KENNER 
P/A WILLEM L. VAN PELT 
JACOB JORDAENSSTRAAT 15 
2923 CK KRIMPEN A.D. IJSSEL. 
TEL. : 01807 - 19881 



BIT 8 



BIT 7 



BIT 6 



BIT 5 



BIT 4 



BIT 3 



BIT 2 



BIT 1 



I H DECIMAAL j H DECIMAAL 1 H DECIMAAL I H DECIMAAL I H DECIMAAL 1 H DECIMAALI H DECIMAAL j H DECIKAAL 



— + 



10 0 j 

I 1 268435456 I 

I 2 516870912 I 

I 3 805306368 1 

I 4 1073741824 I 

I 5 1342177280 I 

I 6 1610612736 I 

I 7 1879048192 j 

i 8 2147483648 I 

I 9 2415919104 I 

I A 2684354560 i 

I B 2952790016 1 

I C 3221225472 I 

I D 3489660928 I 

I E 3758096384 I 

I F 4026531840 I 



0 

16777216 

33554432 

50331648 

67108864 

83886080 

100663296 

117440512 

134217728 

150994944 

167772160 

184549376 

201326592 

218103808 

234881024 

251658240 



0 

1048576 
2097152 
3145728 
4194304 
5242880 
5291456 
7340032 



8 8388608 



9437184 

10485760 

11534336 

12582912 

13631488 

14680064 

15728640 



0 

65536 
131072 
196608 
262144 
327680 
393215 

7 458752 

8 524288 

9 589824 
A 555360 
B 720895 
C 785432 
D 851968 
E 917504 
F 983040 



1 0 0 


1 0 0 


1 0 0 


1 0 0 


i 1 40% 


1 1 256 


1 1 16 


1 1 1 


1 2 8192 


1 2 512 


1 2 32 


1 2 2 


1 3 12286 


1 3 768 


1 3 48 


1 3 3 


1 4 16384 


1 4 1024 


1 4 64 


1 4 4 


1 5 20480 


1 5 1280 


1 5 80 


1 5 5 


1 6 24576 


1 6 1536 


1 6 96 


i 6 6 


1 7 28672 


1 7 1792 


1 7 112 


1 7 7 


1 8 32768 


1 8 2048 


1 8 128 


i 8 B 


1 9 36864 


i 9 2304 


1 9 144 


1 9 9 


1 A 40960 


1 A 2560 


1 A 160 


i A 10 


1 B 45056 


1 B 2816 


1 B 176 


1 B 11 


1 C 49152 


1 C 3072 


1 C 192 


1 C 12 


1 D 53248 


1 D 3326 


1 D 208 


1 D 13 


1 E 57344 


1 F 3564 


i E 224 


1 E 14 


1 F 51440 


1 F 3840 


1 F 240 


1 F 15 



VOORBEELD: lffl^4 HEX 



1 van 
A van 
F van 
4 van 



bit 4 = 4096 
bit 3 = 2560 
bit 2 = 240 
bit 1 = 4 



lfW^4 HEX = 6900 DECIMAAL 



